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)" $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 = %30.24e\\n\",x):" $pgm.puts "fprintf(except_fd,\"Ruby APFP = %30.24e\\n\",fxr):" $pgm.puts "fprintf(except_fd,\"Maple = %30.24e\\n\",fxm):" $pgm.puts "fprintf(except_fd,\"Ruby est fxrerr= %30.24e\\n\",fxrerr):" $pgm.puts "fprintf(except_fd,\"Abs Error = %30.24e\\n\",abs_error):" $pgm.puts "fprintf(except_fd,\"Percent Error = %30.24e\\n\",percent_error):" $pgm.puts "end:" $pgm.puts "out_fd := fopen(`c:\\\\cygwin\\\\home\\\\dennis\\\\src\\\\mine\\\\aptst\\\\aptst.txt`,WRITE,TEXT):" $pgm.puts "except_fd := fopen(`c:\\\\cygwin\\\\home\\\\dennis\\\\src\\\\mine\\\\aptst\\\\apexcept.txt`,WRITE,TEXT):" $pgm.puts "Digits := 26:" 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\"):" x = c(-6.0) $pgm.puts "fprintf(out_fd,\"x = -6.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-6.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.9) $pgm.puts "fprintf(out_fd,\"x = -5.9\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.9):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.800000000000001) $pgm.puts "fprintf(out_fd,\"x = -5.800000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.800000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.700000000000001) $pgm.puts "fprintf(out_fd,\"x = -5.700000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.700000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.600000000000001) $pgm.puts "fprintf(out_fd,\"x = -5.600000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.600000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.500000000000002) $pgm.puts "fprintf(out_fd,\"x = -5.500000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.500000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.400000000000002) $pgm.puts "fprintf(out_fd,\"x = -5.400000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.400000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.3000000000000025) $pgm.puts "fprintf(out_fd,\"x = -5.3000000000000025\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.3000000000000025):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.200000000000003) $pgm.puts "fprintf(out_fd,\"x = -5.200000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.200000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.100000000000003) $pgm.puts "fprintf(out_fd,\"x = -5.100000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.100000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.0000000000000036) $pgm.puts "fprintf(out_fd,\"x = -5.0000000000000036\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-5.0000000000000036):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.900000000000004) $pgm.puts "fprintf(out_fd,\"x = -4.900000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.900000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.800000000000004) $pgm.puts "fprintf(out_fd,\"x = -4.800000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.800000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.700000000000005) $pgm.puts "fprintf(out_fd,\"x = -4.700000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.700000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.600000000000005) $pgm.puts "fprintf(out_fd,\"x = -4.600000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.600000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.500000000000005) $pgm.puts "fprintf(out_fd,\"x = -4.500000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.500000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.400000000000006) $pgm.puts "fprintf(out_fd,\"x = -4.400000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.400000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.300000000000006) $pgm.puts "fprintf(out_fd,\"x = -4.300000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.300000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.200000000000006) $pgm.puts "fprintf(out_fd,\"x = -4.200000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.200000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.100000000000007) $pgm.puts "fprintf(out_fd,\"x = -4.100000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.100000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.000000000000007) $pgm.puts "fprintf(out_fd,\"x = -4.000000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.000000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.900000000000007) $pgm.puts "fprintf(out_fd,\"x = -3.900000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.900000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.800000000000007) $pgm.puts "fprintf(out_fd,\"x = -3.800000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.800000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.700000000000007) $pgm.puts "fprintf(out_fd,\"x = -3.700000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.700000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.6000000000000068) $pgm.puts "fprintf(out_fd,\"x = -3.6000000000000068\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.6000000000000068):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.5000000000000067) $pgm.puts "fprintf(out_fd,\"x = -3.5000000000000067\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.5000000000000067):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.4000000000000066) $pgm.puts "fprintf(out_fd,\"x = -3.4000000000000066\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.4000000000000066):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.3000000000000065) $pgm.puts "fprintf(out_fd,\"x = -3.3000000000000065\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.3000000000000065):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.2000000000000064) $pgm.puts "fprintf(out_fd,\"x = -3.2000000000000064\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.2000000000000064):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.1000000000000063) $pgm.puts "fprintf(out_fd,\"x = -3.1000000000000063\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.1000000000000063):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.000000000000006) $pgm.puts "fprintf(out_fd,\"x = -3.000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-3.000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.900000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.900000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.900000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.800000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.800000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.800000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.700000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.700000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.700000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.600000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.600000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.600000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.5000000000000058) $pgm.puts "fprintf(out_fd,\"x = -2.5000000000000058\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.5000000000000058):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.4000000000000057) $pgm.puts "fprintf(out_fd,\"x = -2.4000000000000057\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.4000000000000057):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.3000000000000056) $pgm.puts "fprintf(out_fd,\"x = -2.3000000000000056\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.3000000000000056):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.2000000000000055) $pgm.puts "fprintf(out_fd,\"x = -2.2000000000000055\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.2000000000000055):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.1000000000000054) $pgm.puts "fprintf(out_fd,\"x = -2.1000000000000054\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.1000000000000054):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.0000000000000053) $pgm.puts "fprintf(out_fd,\"x = -2.0000000000000053\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-2.0000000000000053):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.9000000000000052) $pgm.puts "fprintf(out_fd,\"x = -1.9000000000000052\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.9000000000000052):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.8000000000000052) $pgm.puts "fprintf(out_fd,\"x = -1.8000000000000052\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.8000000000000052):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.700000000000005) $pgm.puts "fprintf(out_fd,\"x = -1.700000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.700000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.600000000000005) $pgm.puts "fprintf(out_fd,\"x = -1.600000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.600000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.5000000000000049) $pgm.puts "fprintf(out_fd,\"x = -1.5000000000000049\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.5000000000000049):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4000000000000048) $pgm.puts "fprintf(out_fd,\"x = -1.4000000000000048\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.4000000000000048):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.3000000000000047) $pgm.puts "fprintf(out_fd,\"x = -1.3000000000000047\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.3000000000000047):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2000000000000046) $pgm.puts "fprintf(out_fd,\"x = -1.2000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.2000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1000000000000045) $pgm.puts "fprintf(out_fd,\"x = -1.1000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.1000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0000000000000044) $pgm.puts "fprintf(out_fd,\"x = -1.0000000000000044\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-1.0000000000000044):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.9000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.9000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.8000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.8000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.7000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.6000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.5000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.4000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.4000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.3000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.3000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.2000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.2000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.10000000000000459) $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000459\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-0.10000000000000459):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.579669976578771e-15) $pgm.puts "fprintf(out_fd,\"x = -4.579669976578771e-15\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(-4.579669976578771e-15):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.09999999999999543) $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999543\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.09999999999999543):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.19999999999999543) $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999543\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.19999999999999543):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.29999999999999544) $pgm.puts "fprintf(out_fd,\"x = 0.29999999999999544\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.29999999999999544):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.39999999999999547) $pgm.puts "fprintf(out_fd,\"x = 0.39999999999999547\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.39999999999999547):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.49999999999999545) $pgm.puts "fprintf(out_fd,\"x = 0.49999999999999545\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.49999999999999545):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.5999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.6999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.7999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.8999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9999999999999953) $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999953\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(0.9999999999999953):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0999999999999954) $pgm.puts "fprintf(out_fd,\"x = 1.0999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.0999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1999999999999955) $pgm.puts "fprintf(out_fd,\"x = 1.1999999999999955\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.1999999999999955):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2999999999999956) $pgm.puts "fprintf(out_fd,\"x = 1.2999999999999956\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.2999999999999956):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3999999999999957) $pgm.puts "fprintf(out_fd,\"x = 1.3999999999999957\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.3999999999999957):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4999999999999958) $pgm.puts "fprintf(out_fd,\"x = 1.4999999999999958\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.4999999999999958):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.5999999999999959) $pgm.puts "fprintf(out_fd,\"x = 1.5999999999999959\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.5999999999999959):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.699999999999996) $pgm.puts "fprintf(out_fd,\"x = 1.699999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.699999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.799999999999996) $pgm.puts "fprintf(out_fd,\"x = 1.799999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.799999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.8999999999999961) $pgm.puts "fprintf(out_fd,\"x = 1.8999999999999961\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.8999999999999961):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.9999999999999962) $pgm.puts "fprintf(out_fd,\"x = 1.9999999999999962\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(1.9999999999999962):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.099999999999996) $pgm.puts "fprintf(out_fd,\"x = 2.099999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.099999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.199999999999996) $pgm.puts "fprintf(out_fd,\"x = 2.199999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.199999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.2999999999999963) $pgm.puts "fprintf(out_fd,\"x = 2.2999999999999963\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.2999999999999963):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.3999999999999964) $pgm.puts "fprintf(out_fd,\"x = 2.3999999999999964\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.3999999999999964):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.4999999999999964) $pgm.puts "fprintf(out_fd,\"x = 2.4999999999999964\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.4999999999999964):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.5999999999999965) $pgm.puts "fprintf(out_fd,\"x = 2.5999999999999965\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.5999999999999965):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.6999999999999966) $pgm.puts "fprintf(out_fd,\"x = 2.6999999999999966\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.6999999999999966):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.7999999999999967) $pgm.puts "fprintf(out_fd,\"x = 2.7999999999999967\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.7999999999999967):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.899999999999997) $pgm.puts "fprintf(out_fd,\"x = 2.899999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.899999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.999999999999997) $pgm.puts "fprintf(out_fd,\"x = 2.999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(2.999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.099999999999997) $pgm.puts "fprintf(out_fd,\"x = 3.099999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.099999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.199999999999997) $pgm.puts "fprintf(out_fd,\"x = 3.199999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.199999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.299999999999997) $pgm.puts "fprintf(out_fd,\"x = 3.299999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.299999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.3999999999999972) $pgm.puts "fprintf(out_fd,\"x = 3.3999999999999972\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.3999999999999972):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.4999999999999973) $pgm.puts "fprintf(out_fd,\"x = 3.4999999999999973\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.4999999999999973):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.5999999999999974) $pgm.puts "fprintf(out_fd,\"x = 3.5999999999999974\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.5999999999999974):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.6999999999999975) $pgm.puts "fprintf(out_fd,\"x = 3.6999999999999975\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.6999999999999975):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.7999999999999976) $pgm.puts "fprintf(out_fd,\"x = 3.7999999999999976\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.7999999999999976):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.8999999999999977) $pgm.puts "fprintf(out_fd,\"x = 3.8999999999999977\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sin $pgm.puts "fxm := sin(3.8999999999999977):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sin,sin,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sin,sin,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-6.0) $pgm.puts "fprintf(out_fd,\"x = -6.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-6.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.9) $pgm.puts "fprintf(out_fd,\"x = -5.9\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.9):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.800000000000001) $pgm.puts "fprintf(out_fd,\"x = -5.800000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.800000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.700000000000001) $pgm.puts "fprintf(out_fd,\"x = -5.700000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.700000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.600000000000001) $pgm.puts "fprintf(out_fd,\"x = -5.600000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.600000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.500000000000002) $pgm.puts "fprintf(out_fd,\"x = -5.500000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.500000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.400000000000002) $pgm.puts "fprintf(out_fd,\"x = -5.400000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.400000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.3000000000000025) $pgm.puts "fprintf(out_fd,\"x = -5.3000000000000025\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.3000000000000025):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.200000000000003) $pgm.puts "fprintf(out_fd,\"x = -5.200000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.200000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.100000000000003) $pgm.puts "fprintf(out_fd,\"x = -5.100000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.100000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.0000000000000036) $pgm.puts "fprintf(out_fd,\"x = -5.0000000000000036\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-5.0000000000000036):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.900000000000004) $pgm.puts "fprintf(out_fd,\"x = -4.900000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.900000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.800000000000004) $pgm.puts "fprintf(out_fd,\"x = -4.800000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.800000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.700000000000005) $pgm.puts "fprintf(out_fd,\"x = -4.700000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.700000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.600000000000005) $pgm.puts "fprintf(out_fd,\"x = -4.600000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.600000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.500000000000005) $pgm.puts "fprintf(out_fd,\"x = -4.500000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.500000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.400000000000006) $pgm.puts "fprintf(out_fd,\"x = -4.400000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.400000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.300000000000006) $pgm.puts "fprintf(out_fd,\"x = -4.300000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.300000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.200000000000006) $pgm.puts "fprintf(out_fd,\"x = -4.200000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.200000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.100000000000007) $pgm.puts "fprintf(out_fd,\"x = -4.100000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.100000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.000000000000007) $pgm.puts "fprintf(out_fd,\"x = -4.000000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.000000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.900000000000007) $pgm.puts "fprintf(out_fd,\"x = -3.900000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.900000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.800000000000007) $pgm.puts "fprintf(out_fd,\"x = -3.800000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.800000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.700000000000007) $pgm.puts "fprintf(out_fd,\"x = -3.700000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.700000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.6000000000000068) $pgm.puts "fprintf(out_fd,\"x = -3.6000000000000068\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.6000000000000068):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.5000000000000067) $pgm.puts "fprintf(out_fd,\"x = -3.5000000000000067\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.5000000000000067):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.4000000000000066) $pgm.puts "fprintf(out_fd,\"x = -3.4000000000000066\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.4000000000000066):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.3000000000000065) $pgm.puts "fprintf(out_fd,\"x = -3.3000000000000065\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.3000000000000065):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.2000000000000064) $pgm.puts "fprintf(out_fd,\"x = -3.2000000000000064\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.2000000000000064):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.1000000000000063) $pgm.puts "fprintf(out_fd,\"x = -3.1000000000000063\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.1000000000000063):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.000000000000006) $pgm.puts "fprintf(out_fd,\"x = -3.000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-3.000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.900000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.900000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.900000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.800000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.800000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.800000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.700000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.700000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.700000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.600000000000006) $pgm.puts "fprintf(out_fd,\"x = -2.600000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.600000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.5000000000000058) $pgm.puts "fprintf(out_fd,\"x = -2.5000000000000058\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.5000000000000058):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.4000000000000057) $pgm.puts "fprintf(out_fd,\"x = -2.4000000000000057\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.4000000000000057):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.3000000000000056) $pgm.puts "fprintf(out_fd,\"x = -2.3000000000000056\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.3000000000000056):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.2000000000000055) $pgm.puts "fprintf(out_fd,\"x = -2.2000000000000055\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.2000000000000055):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.1000000000000054) $pgm.puts "fprintf(out_fd,\"x = -2.1000000000000054\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.1000000000000054):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.0000000000000053) $pgm.puts "fprintf(out_fd,\"x = -2.0000000000000053\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-2.0000000000000053):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.9000000000000052) $pgm.puts "fprintf(out_fd,\"x = -1.9000000000000052\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.9000000000000052):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.8000000000000052) $pgm.puts "fprintf(out_fd,\"x = -1.8000000000000052\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.8000000000000052):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.700000000000005) $pgm.puts "fprintf(out_fd,\"x = -1.700000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.700000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.600000000000005) $pgm.puts "fprintf(out_fd,\"x = -1.600000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.600000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.5000000000000049) $pgm.puts "fprintf(out_fd,\"x = -1.5000000000000049\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.5000000000000049):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4000000000000048) $pgm.puts "fprintf(out_fd,\"x = -1.4000000000000048\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.4000000000000048):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.3000000000000047) $pgm.puts "fprintf(out_fd,\"x = -1.3000000000000047\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.3000000000000047):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2000000000000046) $pgm.puts "fprintf(out_fd,\"x = -1.2000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.2000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1000000000000045) $pgm.puts "fprintf(out_fd,\"x = -1.1000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.1000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0000000000000044) $pgm.puts "fprintf(out_fd,\"x = -1.0000000000000044\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-1.0000000000000044):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.9000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.9000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.8000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.8000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.7000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6000000000000045) $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.6000000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.5000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.4000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.4000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.3000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.3000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2000000000000046) $pgm.puts "fprintf(out_fd,\"x = -0.2000000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.2000000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.10000000000000459) $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000459\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-0.10000000000000459):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.579669976578771e-15) $pgm.puts "fprintf(out_fd,\"x = -4.579669976578771e-15\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(-4.579669976578771e-15):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.09999999999999543) $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999543\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.09999999999999543):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.19999999999999543) $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999543\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.19999999999999543):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.29999999999999544) $pgm.puts "fprintf(out_fd,\"x = 0.29999999999999544\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.29999999999999544):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.39999999999999547) $pgm.puts "fprintf(out_fd,\"x = 0.39999999999999547\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.39999999999999547):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.49999999999999545) $pgm.puts "fprintf(out_fd,\"x = 0.49999999999999545\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.49999999999999545):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.5999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.6999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.7999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8999999999999954) $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.8999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9999999999999953) $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999953\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(0.9999999999999953):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0999999999999954) $pgm.puts "fprintf(out_fd,\"x = 1.0999999999999954\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.0999999999999954):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1999999999999955) $pgm.puts "fprintf(out_fd,\"x = 1.1999999999999955\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.1999999999999955):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2999999999999956) $pgm.puts "fprintf(out_fd,\"x = 1.2999999999999956\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.2999999999999956):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3999999999999957) $pgm.puts "fprintf(out_fd,\"x = 1.3999999999999957\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.3999999999999957):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4999999999999958) $pgm.puts "fprintf(out_fd,\"x = 1.4999999999999958\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.4999999999999958):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.5999999999999959) $pgm.puts "fprintf(out_fd,\"x = 1.5999999999999959\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.5999999999999959):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.699999999999996) $pgm.puts "fprintf(out_fd,\"x = 1.699999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.699999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.799999999999996) $pgm.puts "fprintf(out_fd,\"x = 1.799999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.799999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.8999999999999961) $pgm.puts "fprintf(out_fd,\"x = 1.8999999999999961\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.8999999999999961):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.9999999999999962) $pgm.puts "fprintf(out_fd,\"x = 1.9999999999999962\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(1.9999999999999962):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.099999999999996) $pgm.puts "fprintf(out_fd,\"x = 2.099999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.099999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.199999999999996) $pgm.puts "fprintf(out_fd,\"x = 2.199999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.199999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.2999999999999963) $pgm.puts "fprintf(out_fd,\"x = 2.2999999999999963\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.2999999999999963):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.3999999999999964) $pgm.puts "fprintf(out_fd,\"x = 2.3999999999999964\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.3999999999999964):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.4999999999999964) $pgm.puts "fprintf(out_fd,\"x = 2.4999999999999964\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.4999999999999964):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.5999999999999965) $pgm.puts "fprintf(out_fd,\"x = 2.5999999999999965\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.5999999999999965):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.6999999999999966) $pgm.puts "fprintf(out_fd,\"x = 2.6999999999999966\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.6999999999999966):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.7999999999999967) $pgm.puts "fprintf(out_fd,\"x = 2.7999999999999967\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.7999999999999967):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.899999999999997) $pgm.puts "fprintf(out_fd,\"x = 2.899999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.899999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.999999999999997) $pgm.puts "fprintf(out_fd,\"x = 2.999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(2.999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.099999999999997) $pgm.puts "fprintf(out_fd,\"x = 3.099999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.099999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.199999999999997) $pgm.puts "fprintf(out_fd,\"x = 3.199999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.199999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.299999999999997) $pgm.puts "fprintf(out_fd,\"x = 3.299999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.299999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.3999999999999972) $pgm.puts "fprintf(out_fd,\"x = 3.3999999999999972\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.3999999999999972):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.4999999999999973) $pgm.puts "fprintf(out_fd,\"x = 3.4999999999999973\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.4999999999999973):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.5999999999999974) $pgm.puts "fprintf(out_fd,\"x = 3.5999999999999974\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.5999999999999974):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.6999999999999975) $pgm.puts "fprintf(out_fd,\"x = 3.6999999999999975\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.6999999999999975):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.7999999999999976) $pgm.puts "fprintf(out_fd,\"x = 3.7999999999999976\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.7999999999999976):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.8999999999999977) $pgm.puts "fprintf(out_fd,\"x = 3.8999999999999977\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cos $pgm.puts "fxm := cos(3.8999999999999977):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cos,cos,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cos,cos,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tan $pgm.puts "fxm := tan(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tan,tan,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tan,tan,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-100.5) $pgm.puts "fprintf(out_fd,\"x = -100.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-100.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-90.4) $pgm.puts "fprintf(out_fd,\"x = -90.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-90.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-80.30000000000001) $pgm.puts "fprintf(out_fd,\"x = -80.30000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-80.30000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-80.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-80.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-70.20000000000002) $pgm.puts "fprintf(out_fd,\"x = -70.20000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-70.20000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-70.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-70.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-60.100000000000016) $pgm.puts "fprintf(out_fd,\"x = -60.100000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-60.100000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-60.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-60.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-50.000000000000014) $pgm.puts "fprintf(out_fd,\"x = -50.000000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-50.000000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-50.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-50.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-39.90000000000001) $pgm.puts "fprintf(out_fd,\"x = -39.90000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-39.90000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-39.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-39.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-29.80000000000001) $pgm.puts "fprintf(out_fd,\"x = -29.80000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-29.80000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-29.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-29.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.70000000000001) $pgm.puts "fprintf(out_fd,\"x = -19.70000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-19.70000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-19.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-19.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.60000000000001) $pgm.puts "fprintf(out_fd,\"x = -9.60000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(-9.60000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.49999999999998934) $pgm.puts "fprintf(out_fd,\"x = 0.49999999999998934\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(0.49999999999998934):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,0.49999999999998934,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,0.49999999999998934,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(10.599999999999989) $pgm.puts "fprintf(out_fd,\"x = 10.599999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(10.599999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,10.599999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,10.599999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(20.69999999999999) $pgm.puts "fprintf(out_fd,\"x = 20.69999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(20.69999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,20.69999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,20.69999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(30.79999999999999) $pgm.puts "fprintf(out_fd,\"x = 30.79999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(30.79999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,30.79999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,30.79999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(40.89999999999999) $pgm.puts "fprintf(out_fd,\"x = 40.89999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(40.89999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,40.89999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,40.89999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(50.99999999999999) $pgm.puts "fprintf(out_fd,\"x = 50.99999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(50.99999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,50.99999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,50.99999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(61.099999999999994) $pgm.puts "fprintf(out_fd,\"x = 61.099999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(61.099999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,61.099999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,61.099999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(71.19999999999999) $pgm.puts "fprintf(out_fd,\"x = 71.19999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(71.19999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,71.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,71.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(81.29999999999998) $pgm.puts "fprintf(out_fd,\"x = 81.29999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(81.29999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,81.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,81.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(91.39999999999998) $pgm.puts "fprintf(out_fd,\"x = 91.39999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.exp $pgm.puts "fxm := exp(91.39999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(exp,exp,91.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(exp,exp,91.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.0) $pgm.puts "fprintf(out_fd,\"x = -1.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-1.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9) $pgm.puts "fprintf(out_fd,\"x = -0.9\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.9):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8) $pgm.puts "fprintf(out_fd,\"x = -0.8\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.8):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7000000000000001) $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.7000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6000000000000001) $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.6000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5000000000000001) $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.5000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.40000000000000013) $pgm.puts "fprintf(out_fd,\"x = -0.40000000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.40000000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.30000000000000016) $pgm.puts "fprintf(out_fd,\"x = -0.30000000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.30000000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.20000000000000015) $pgm.puts "fprintf(out_fd,\"x = -0.20000000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.20000000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.10000000000000014) $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-0.10000000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.3877787807814457e-16) $pgm.puts "fprintf(out_fd,\"x = -1.3877787807814457e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(-1.3877787807814457e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.09999999999999987) $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.09999999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.19999999999999987) $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.19999999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.2999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.2999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.3999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.3999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.4999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.4999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.4999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.5999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.6999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.7999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.8999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.asin $pgm.puts "fxm := arcsin(0.9999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.9999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arcsin,asin,0.9999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.0) $pgm.puts "fprintf(out_fd,\"x = -1.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-1.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-1.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9) $pgm.puts "fprintf(out_fd,\"x = -0.9\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.9):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8) $pgm.puts "fprintf(out_fd,\"x = -0.8\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.8):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7000000000000001) $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.7000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6000000000000001) $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.6000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5000000000000001) $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.5000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.40000000000000013) $pgm.puts "fprintf(out_fd,\"x = -0.40000000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.40000000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.30000000000000016) $pgm.puts "fprintf(out_fd,\"x = -0.30000000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.30000000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.20000000000000015) $pgm.puts "fprintf(out_fd,\"x = -0.20000000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.20000000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.10000000000000014) $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-0.10000000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.3877787807814457e-16) $pgm.puts "fprintf(out_fd,\"x = -1.3877787807814457e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(-1.3877787807814457e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.09999999999999987) $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.09999999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.19999999999999987) $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.19999999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.2999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.2999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.3999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.3999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.4999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.4999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.4999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.5999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.6999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.7999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.8999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9999999999999998) $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.acos $pgm.puts "fxm := arccos(0.9999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arccos,acos,0.9999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arccos,acos,0.9999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-10.5) $pgm.puts "fprintf(out_fd,\"x = -10.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-10.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.4) $pgm.puts "fprintf(out_fd,\"x = -10.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-10.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.3) $pgm.puts "fprintf(out_fd,\"x = -10.3\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-10.3):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.200000000000001) $pgm.puts "fprintf(out_fd,\"x = -10.200000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-10.200000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.200000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.200000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.100000000000001) $pgm.puts "fprintf(out_fd,\"x = -10.100000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-10.100000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.100000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.100000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.000000000000002) $pgm.puts "fprintf(out_fd,\"x = -10.000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-10.000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-10.000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.900000000000002) $pgm.puts "fprintf(out_fd,\"x = -9.900000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.900000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.800000000000002) $pgm.puts "fprintf(out_fd,\"x = -9.800000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.800000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.800000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.800000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.700000000000003) $pgm.puts "fprintf(out_fd,\"x = -9.700000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.700000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.700000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.700000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.600000000000003) $pgm.puts "fprintf(out_fd,\"x = -9.600000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.600000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.600000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.600000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.500000000000004) $pgm.puts "fprintf(out_fd,\"x = -9.500000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.500000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.500000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.500000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.400000000000004) $pgm.puts "fprintf(out_fd,\"x = -9.400000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.400000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.400000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.400000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.300000000000004) $pgm.puts "fprintf(out_fd,\"x = -9.300000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.300000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.300000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.300000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.200000000000005) $pgm.puts "fprintf(out_fd,\"x = -9.200000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.200000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.100000000000005) $pgm.puts "fprintf(out_fd,\"x = -9.100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.000000000000005) $pgm.puts "fprintf(out_fd,\"x = -9.000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-9.000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-9.000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.900000000000006) $pgm.puts "fprintf(out_fd,\"x = -8.900000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.900000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.800000000000006) $pgm.puts "fprintf(out_fd,\"x = -8.800000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.800000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.700000000000006) $pgm.puts "fprintf(out_fd,\"x = -8.700000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.700000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.600000000000007) $pgm.puts "fprintf(out_fd,\"x = -8.600000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.600000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.600000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.600000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.500000000000007) $pgm.puts "fprintf(out_fd,\"x = -8.500000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.500000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.400000000000007) $pgm.puts "fprintf(out_fd,\"x = -8.400000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.400000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.400000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.400000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.300000000000008) $pgm.puts "fprintf(out_fd,\"x = -8.300000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.300000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.200000000000008) $pgm.puts "fprintf(out_fd,\"x = -8.200000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.200000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.200000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.200000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.100000000000009) $pgm.puts "fprintf(out_fd,\"x = -8.100000000000009\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.100000000000009):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.100000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.100000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.000000000000009) $pgm.puts "fprintf(out_fd,\"x = -8.000000000000009\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-8.000000000000009):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.000000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-8.000000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.900000000000009) $pgm.puts "fprintf(out_fd,\"x = -7.900000000000009\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.900000000000009):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.900000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.900000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.80000000000001) $pgm.puts "fprintf(out_fd,\"x = -7.80000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.80000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.70000000000001) $pgm.puts "fprintf(out_fd,\"x = -7.70000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.70000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.60000000000001) $pgm.puts "fprintf(out_fd,\"x = -7.60000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.60000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.500000000000011) $pgm.puts "fprintf(out_fd,\"x = -7.500000000000011\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.500000000000011):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.500000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.500000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.400000000000011) $pgm.puts "fprintf(out_fd,\"x = -7.400000000000011\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.400000000000011):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.400000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.400000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.300000000000011) $pgm.puts "fprintf(out_fd,\"x = -7.300000000000011\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.300000000000011):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.300000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.300000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.200000000000012) $pgm.puts "fprintf(out_fd,\"x = -7.200000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.200000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.200000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.200000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.100000000000012) $pgm.puts "fprintf(out_fd,\"x = -7.100000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.100000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.100000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.100000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.000000000000012) $pgm.puts "fprintf(out_fd,\"x = -7.000000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-7.000000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.000000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-7.000000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.900000000000013) $pgm.puts "fprintf(out_fd,\"x = -6.900000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.900000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.900000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.900000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.800000000000013) $pgm.puts "fprintf(out_fd,\"x = -6.800000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.800000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.800000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.800000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.7000000000000135) $pgm.puts "fprintf(out_fd,\"x = -6.7000000000000135\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.7000000000000135):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.7000000000000135,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.7000000000000135,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.600000000000014) $pgm.puts "fprintf(out_fd,\"x = -6.600000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.600000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.600000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.600000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.500000000000014) $pgm.puts "fprintf(out_fd,\"x = -6.500000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.500000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.500000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.500000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.400000000000015) $pgm.puts "fprintf(out_fd,\"x = -6.400000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.400000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.400000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.400000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.300000000000015) $pgm.puts "fprintf(out_fd,\"x = -6.300000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.300000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.200000000000015) $pgm.puts "fprintf(out_fd,\"x = -6.200000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.200000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.200000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.200000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.100000000000016) $pgm.puts "fprintf(out_fd,\"x = -6.100000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.100000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-6.000000000000016) $pgm.puts "fprintf(out_fd,\"x = -6.000000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-6.000000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-6.000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.900000000000016) $pgm.puts "fprintf(out_fd,\"x = -5.900000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.900000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.800000000000017) $pgm.puts "fprintf(out_fd,\"x = -5.800000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.800000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.800000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.800000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.700000000000017) $pgm.puts "fprintf(out_fd,\"x = -5.700000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.700000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.700000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.700000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.600000000000017) $pgm.puts "fprintf(out_fd,\"x = -5.600000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.600000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.600000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.600000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.500000000000018) $pgm.puts "fprintf(out_fd,\"x = -5.500000000000018\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.500000000000018):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.500000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.500000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.400000000000018) $pgm.puts "fprintf(out_fd,\"x = -5.400000000000018\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.400000000000018):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.400000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.400000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.3000000000000185) $pgm.puts "fprintf(out_fd,\"x = -5.3000000000000185\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.3000000000000185):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.3000000000000185,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.3000000000000185,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.200000000000019) $pgm.puts "fprintf(out_fd,\"x = -5.200000000000019\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.200000000000019):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.200000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.200000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.100000000000019) $pgm.puts "fprintf(out_fd,\"x = -5.100000000000019\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.100000000000019):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.100000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.100000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-5.0000000000000195) $pgm.puts "fprintf(out_fd,\"x = -5.0000000000000195\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-5.0000000000000195):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.0000000000000195,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-5.0000000000000195,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.90000000000002) $pgm.puts "fprintf(out_fd,\"x = -4.90000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.90000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.80000000000002) $pgm.puts "fprintf(out_fd,\"x = -4.80000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.80000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.700000000000021) $pgm.puts "fprintf(out_fd,\"x = -4.700000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.700000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.600000000000021) $pgm.puts "fprintf(out_fd,\"x = -4.600000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.600000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.500000000000021) $pgm.puts "fprintf(out_fd,\"x = -4.500000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.500000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.500000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.500000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.400000000000022) $pgm.puts "fprintf(out_fd,\"x = -4.400000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.400000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.400000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.400000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.300000000000022) $pgm.puts "fprintf(out_fd,\"x = -4.300000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.300000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.300000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.300000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.200000000000022) $pgm.puts "fprintf(out_fd,\"x = -4.200000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.200000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.200000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.200000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.100000000000023) $pgm.puts "fprintf(out_fd,\"x = -4.100000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.100000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-4.000000000000023) $pgm.puts "fprintf(out_fd,\"x = -4.000000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-4.000000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.000000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-4.000000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.900000000000023) $pgm.puts "fprintf(out_fd,\"x = -3.900000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.900000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.900000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.900000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.800000000000023) $pgm.puts "fprintf(out_fd,\"x = -3.800000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.800000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.800000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.800000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.700000000000023) $pgm.puts "fprintf(out_fd,\"x = -3.700000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.700000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.700000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.700000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.6000000000000227) $pgm.puts "fprintf(out_fd,\"x = -3.6000000000000227\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.6000000000000227):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.6000000000000227,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.6000000000000227,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.5000000000000226) $pgm.puts "fprintf(out_fd,\"x = -3.5000000000000226\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.5000000000000226):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.5000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.5000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.4000000000000226) $pgm.puts "fprintf(out_fd,\"x = -3.4000000000000226\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.4000000000000226):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.4000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.4000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.3000000000000225) $pgm.puts "fprintf(out_fd,\"x = -3.3000000000000225\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.3000000000000225):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.3000000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.3000000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.2000000000000224) $pgm.puts "fprintf(out_fd,\"x = -3.2000000000000224\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.2000000000000224):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.2000000000000224,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.2000000000000224,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.1000000000000223) $pgm.puts "fprintf(out_fd,\"x = -3.1000000000000223\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.1000000000000223):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.1000000000000223,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.1000000000000223,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-3.000000000000022) $pgm.puts "fprintf(out_fd,\"x = -3.000000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-3.000000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.000000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-3.000000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.900000000000022) $pgm.puts "fprintf(out_fd,\"x = -2.900000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.900000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.900000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.900000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.800000000000022) $pgm.puts "fprintf(out_fd,\"x = -2.800000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.800000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.800000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.800000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.700000000000022) $pgm.puts "fprintf(out_fd,\"x = -2.700000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.700000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.700000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.700000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.600000000000022) $pgm.puts "fprintf(out_fd,\"x = -2.600000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.600000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.600000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.600000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.5000000000000218) $pgm.puts "fprintf(out_fd,\"x = -2.5000000000000218\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.5000000000000218):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.5000000000000218,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.5000000000000218,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.4000000000000217) $pgm.puts "fprintf(out_fd,\"x = -2.4000000000000217\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.4000000000000217):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.4000000000000217,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.4000000000000217,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.3000000000000216) $pgm.puts "fprintf(out_fd,\"x = -2.3000000000000216\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.3000000000000216):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.3000000000000216,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.3000000000000216,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.2000000000000215) $pgm.puts "fprintf(out_fd,\"x = -2.2000000000000215\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.2000000000000215):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.2000000000000215,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.2000000000000215,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.1000000000000214) $pgm.puts "fprintf(out_fd,\"x = -2.1000000000000214\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.1000000000000214):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.1000000000000214,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.1000000000000214,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-2.0000000000000213) $pgm.puts "fprintf(out_fd,\"x = -2.0000000000000213\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-2.0000000000000213):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.0000000000000213,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-2.0000000000000213,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.9000000000000212) $pgm.puts "fprintf(out_fd,\"x = -1.9000000000000212\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.9000000000000212):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.9000000000000212,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.9000000000000212,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.8000000000000211) $pgm.puts "fprintf(out_fd,\"x = -1.8000000000000211\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.8000000000000211):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.8000000000000211,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.8000000000000211,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.700000000000021) $pgm.puts "fprintf(out_fd,\"x = -1.700000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.700000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.600000000000021) $pgm.puts "fprintf(out_fd,\"x = -1.600000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.600000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.5000000000000209) $pgm.puts "fprintf(out_fd,\"x = -1.5000000000000209\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.5000000000000209):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.5000000000000209,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.5000000000000209,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4000000000000208) $pgm.puts "fprintf(out_fd,\"x = -1.4000000000000208\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.4000000000000208):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.4000000000000208,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.4000000000000208,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.3000000000000207) $pgm.puts "fprintf(out_fd,\"x = -1.3000000000000207\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.3000000000000207):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.3000000000000207,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.3000000000000207,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2000000000000206) $pgm.puts "fprintf(out_fd,\"x = -1.2000000000000206\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.2000000000000206):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.2000000000000206,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.2000000000000206,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1000000000000205) $pgm.puts "fprintf(out_fd,\"x = -1.1000000000000205\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.1000000000000205):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.1000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.1000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0000000000000204) $pgm.puts "fprintf(out_fd,\"x = -1.0000000000000204\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-1.0000000000000204):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.0000000000000204,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-1.0000000000000204,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9000000000000205) $pgm.puts "fprintf(out_fd,\"x = -0.9000000000000205\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-0.9000000000000205):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.9000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.9000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8000000000000205) $pgm.puts "fprintf(out_fd,\"x = -0.8000000000000205\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-0.8000000000000205):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.8000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.8000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7000000000000205) $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000205\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-0.7000000000000205):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.7000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.7000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6000000000000205) $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000205\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.atan $pgm.puts "fxm := arctan(-0.6000000000000205):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.6000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(arctan,atan,-0.6000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(0.01) $pgm.puts "fprintf(out_fd,\"x = 0.01\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.01):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.11) $pgm.puts "fprintf(out_fd,\"x = 0.11\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.11):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.21000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.21000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.21000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.31000000000000005) $pgm.puts "fprintf(out_fd,\"x = 0.31000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.31000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.41000000000000003) $pgm.puts "fprintf(out_fd,\"x = 0.41000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.41000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.51) $pgm.puts "fprintf(out_fd,\"x = 0.51\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.51):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.61) $pgm.puts "fprintf(out_fd,\"x = 0.61\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.61):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.71) $pgm.puts "fprintf(out_fd,\"x = 0.71\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.71):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8099999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.8099999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.8099999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9099999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.9099999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.9099999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.01) $pgm.puts "fprintf(out_fd,\"x = 1.01\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.01):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.11) $pgm.puts "fprintf(out_fd,\"x = 1.11\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.11):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2100000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.2100000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.2100000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3100000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.3100000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.3100000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4100000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.4100000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.4100000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.5100000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.5100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.5100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.6100000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.6100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.6100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.7100000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.7100000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.7100000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.8100000000000007) $pgm.puts "fprintf(out_fd,\"x = 1.8100000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.8100000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.9100000000000008) $pgm.puts "fprintf(out_fd,\"x = 1.9100000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.9100000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.0100000000000007) $pgm.puts "fprintf(out_fd,\"x = 2.0100000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.0100000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.1100000000000008) $pgm.puts "fprintf(out_fd,\"x = 2.1100000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.1100000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.210000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.210000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.210000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.310000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.310000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.310000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.410000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.410000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.410000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.510000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.510000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.510000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.610000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.610000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.610000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.7100000000000013) $pgm.puts "fprintf(out_fd,\"x = 2.7100000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.7100000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.8100000000000014) $pgm.puts "fprintf(out_fd,\"x = 2.8100000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.8100000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.9100000000000015) $pgm.puts "fprintf(out_fd,\"x = 2.9100000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.9100000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.0100000000000016) $pgm.puts "fprintf(out_fd,\"x = 3.0100000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.0100000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.1100000000000017) $pgm.puts "fprintf(out_fd,\"x = 3.1100000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.1100000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.2100000000000017) $pgm.puts "fprintf(out_fd,\"x = 3.2100000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.2100000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.310000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.310000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.310000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.410000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.410000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.410000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.510000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.510000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.510000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.610000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.610000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.610000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.710000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.710000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.710000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.8100000000000023) $pgm.puts "fprintf(out_fd,\"x = 3.8100000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.8100000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.9100000000000024) $pgm.puts "fprintf(out_fd,\"x = 3.9100000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.9100000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.0100000000000025) $pgm.puts "fprintf(out_fd,\"x = 4.0100000000000025\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.0100000000000025):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.110000000000002) $pgm.puts "fprintf(out_fd,\"x = 4.110000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.110000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.210000000000002) $pgm.puts "fprintf(out_fd,\"x = 4.210000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.210000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.310000000000001) $pgm.puts "fprintf(out_fd,\"x = 4.310000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.310000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.410000000000001) $pgm.puts "fprintf(out_fd,\"x = 4.410000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.410000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.510000000000001) $pgm.puts "fprintf(out_fd,\"x = 4.510000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.510000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.61) $pgm.puts "fprintf(out_fd,\"x = 4.61\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.61):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.71) $pgm.puts "fprintf(out_fd,\"x = 4.71\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.71):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.81) $pgm.puts "fprintf(out_fd,\"x = 4.81\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.81):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.909999999999999) $pgm.puts "fprintf(out_fd,\"x = 4.909999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.909999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.009999999999999) $pgm.puts "fprintf(out_fd,\"x = 5.009999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.009999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.1099999999999985) $pgm.puts "fprintf(out_fd,\"x = 5.1099999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.1099999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.209999999999998) $pgm.puts "fprintf(out_fd,\"x = 5.209999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.209999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.309999999999998) $pgm.puts "fprintf(out_fd,\"x = 5.309999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.309999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.4099999999999975) $pgm.puts "fprintf(out_fd,\"x = 5.4099999999999975\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.4099999999999975):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.509999999999997) $pgm.puts "fprintf(out_fd,\"x = 5.509999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.509999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.609999999999997) $pgm.puts "fprintf(out_fd,\"x = 5.609999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.609999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.709999999999996) $pgm.puts "fprintf(out_fd,\"x = 5.709999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.709999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.809999999999996) $pgm.puts "fprintf(out_fd,\"x = 5.809999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.809999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.909999999999996) $pgm.puts "fprintf(out_fd,\"x = 5.909999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.909999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.009999999999995) $pgm.puts "fprintf(out_fd,\"x = 6.009999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.009999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.109999999999995) $pgm.puts "fprintf(out_fd,\"x = 6.109999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.109999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.209999999999995) $pgm.puts "fprintf(out_fd,\"x = 6.209999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.209999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.309999999999994) $pgm.puts "fprintf(out_fd,\"x = 6.309999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.309999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.409999999999994) $pgm.puts "fprintf(out_fd,\"x = 6.409999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.409999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.509999999999994) $pgm.puts "fprintf(out_fd,\"x = 6.509999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.509999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.609999999999993) $pgm.puts "fprintf(out_fd,\"x = 6.609999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.609999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.709999999999993) $pgm.puts "fprintf(out_fd,\"x = 6.709999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.709999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.8099999999999925) $pgm.puts "fprintf(out_fd,\"x = 6.8099999999999925\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.8099999999999925):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.909999999999992) $pgm.puts "fprintf(out_fd,\"x = 6.909999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.909999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.009999999999992) $pgm.puts "fprintf(out_fd,\"x = 7.009999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.009999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.109999999999991) $pgm.puts "fprintf(out_fd,\"x = 7.109999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.109999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.209999999999991) $pgm.puts "fprintf(out_fd,\"x = 7.209999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.209999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.309999999999991) $pgm.puts "fprintf(out_fd,\"x = 7.309999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.309999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.40999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.40999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.40999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.50999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.50999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.50999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.60999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.60999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.60999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.709999999999989) $pgm.puts "fprintf(out_fd,\"x = 7.709999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.709999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.809999999999989) $pgm.puts "fprintf(out_fd,\"x = 7.809999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.809999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.909999999999989) $pgm.puts "fprintf(out_fd,\"x = 7.909999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.909999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.00999999999999) $pgm.puts "fprintf(out_fd,\"x = 8.00999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.00999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.109999999999989) $pgm.puts "fprintf(out_fd,\"x = 8.109999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.109999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.209999999999988) $pgm.puts "fprintf(out_fd,\"x = 8.209999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.209999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.309999999999988) $pgm.puts "fprintf(out_fd,\"x = 8.309999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.309999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.409999999999988) $pgm.puts "fprintf(out_fd,\"x = 8.409999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.409999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.509999999999987) $pgm.puts "fprintf(out_fd,\"x = 8.509999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.509999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.609999999999987) $pgm.puts "fprintf(out_fd,\"x = 8.609999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.609999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.709999999999987) $pgm.puts "fprintf(out_fd,\"x = 8.709999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.709999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.809999999999986) $pgm.puts "fprintf(out_fd,\"x = 8.809999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.809999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.909999999999986) $pgm.puts "fprintf(out_fd,\"x = 8.909999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.909999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.009999999999986) $pgm.puts "fprintf(out_fd,\"x = 9.009999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.009999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.109999999999985) $pgm.puts "fprintf(out_fd,\"x = 9.109999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.109999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.209999999999985) $pgm.puts "fprintf(out_fd,\"x = 9.209999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.209999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.309999999999985) $pgm.puts "fprintf(out_fd,\"x = 9.309999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.309999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.409999999999984) $pgm.puts "fprintf(out_fd,\"x = 9.409999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.409999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.509999999999984) $pgm.puts "fprintf(out_fd,\"x = 9.509999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.509999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.609999999999983) $pgm.puts "fprintf(out_fd,\"x = 9.609999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.609999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.709999999999983) $pgm.puts "fprintf(out_fd,\"x = 9.709999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.709999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.809999999999983) $pgm.puts "fprintf(out_fd,\"x = 9.809999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.809999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.909999999999982) $pgm.puts "fprintf(out_fd,\"x = 9.909999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.909999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(0.1) $pgm.puts "fprintf(out_fd,\"x = 0.1\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(0.1):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(1.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.3000000000000003) $pgm.puts "fprintf(out_fd,\"x = 2.3000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(2.3000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.4000000000000004) $pgm.puts "fprintf(out_fd,\"x = 3.4000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(3.4000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.5) $pgm.puts "fprintf(out_fd,\"x = 4.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(4.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.6) $pgm.puts "fprintf(out_fd,\"x = 5.6\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(5.6):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.699999999999999) $pgm.puts "fprintf(out_fd,\"x = 6.699999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(6.699999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.799999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.799999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(7.799999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.899999999999999) $pgm.puts "fprintf(out_fd,\"x = 8.899999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(8.899999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.999999999999998) $pgm.puts "fprintf(out_fd,\"x = 9.999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(9.999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(11.099999999999998) $pgm.puts "fprintf(out_fd,\"x = 11.099999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(11.099999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(12.199999999999998) $pgm.puts "fprintf(out_fd,\"x = 12.199999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(12.199999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(13.299999999999997) $pgm.puts "fprintf(out_fd,\"x = 13.299999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(13.299999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(14.399999999999997) $pgm.puts "fprintf(out_fd,\"x = 14.399999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(14.399999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(15.499999999999996) $pgm.puts "fprintf(out_fd,\"x = 15.499999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(15.499999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(16.599999999999998) $pgm.puts "fprintf(out_fd,\"x = 16.599999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(16.599999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(17.7) $pgm.puts "fprintf(out_fd,\"x = 17.7\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(17.7):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(18.8) $pgm.puts "fprintf(out_fd,\"x = 18.8\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(18.8):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(19.900000000000002) $pgm.puts "fprintf(out_fd,\"x = 19.900000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(19.900000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(21.000000000000004) $pgm.puts "fprintf(out_fd,\"x = 21.000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(21.000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(22.100000000000005) $pgm.puts "fprintf(out_fd,\"x = 22.100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(22.100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(23.200000000000006) $pgm.puts "fprintf(out_fd,\"x = 23.200000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(23.200000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(24.300000000000008) $pgm.puts "fprintf(out_fd,\"x = 24.300000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(24.300000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(25.40000000000001) $pgm.puts "fprintf(out_fd,\"x = 25.40000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(25.40000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(26.50000000000001) $pgm.puts "fprintf(out_fd,\"x = 26.50000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(26.50000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(27.600000000000012) $pgm.puts "fprintf(out_fd,\"x = 27.600000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(27.600000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(28.700000000000014) $pgm.puts "fprintf(out_fd,\"x = 28.700000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(28.700000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(29.800000000000015) $pgm.puts "fprintf(out_fd,\"x = 29.800000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(29.800000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(30.900000000000016) $pgm.puts "fprintf(out_fd,\"x = 30.900000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(30.900000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(32.000000000000014) $pgm.puts "fprintf(out_fd,\"x = 32.000000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(32.000000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(33.100000000000016) $pgm.puts "fprintf(out_fd,\"x = 33.100000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(33.100000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(34.20000000000002) $pgm.puts "fprintf(out_fd,\"x = 34.20000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(34.20000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(35.30000000000002) $pgm.puts "fprintf(out_fd,\"x = 35.30000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(35.30000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(36.40000000000002) $pgm.puts "fprintf(out_fd,\"x = 36.40000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(36.40000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(37.50000000000002) $pgm.puts "fprintf(out_fd,\"x = 37.50000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(37.50000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(38.60000000000002) $pgm.puts "fprintf(out_fd,\"x = 38.60000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(38.60000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(39.700000000000024) $pgm.puts "fprintf(out_fd,\"x = 39.700000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(39.700000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(40.800000000000026) $pgm.puts "fprintf(out_fd,\"x = 40.800000000000026\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(40.800000000000026):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(41.90000000000003) $pgm.puts "fprintf(out_fd,\"x = 41.90000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(41.90000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(43.00000000000003) $pgm.puts "fprintf(out_fd,\"x = 43.00000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(43.00000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(44.10000000000003) $pgm.puts "fprintf(out_fd,\"x = 44.10000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(44.10000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(45.20000000000003) $pgm.puts "fprintf(out_fd,\"x = 45.20000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(45.20000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(46.30000000000003) $pgm.puts "fprintf(out_fd,\"x = 46.30000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(46.30000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(47.400000000000034) $pgm.puts "fprintf(out_fd,\"x = 47.400000000000034\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(47.400000000000034):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(48.500000000000036) $pgm.puts "fprintf(out_fd,\"x = 48.500000000000036\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(48.500000000000036):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(49.60000000000004) $pgm.puts "fprintf(out_fd,\"x = 49.60000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(49.60000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(50.70000000000004) $pgm.puts "fprintf(out_fd,\"x = 50.70000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(50.70000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(51.80000000000004) $pgm.puts "fprintf(out_fd,\"x = 51.80000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(51.80000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(52.90000000000004) $pgm.puts "fprintf(out_fd,\"x = 52.90000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(52.90000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(54.00000000000004) $pgm.puts "fprintf(out_fd,\"x = 54.00000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(54.00000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(55.100000000000044) $pgm.puts "fprintf(out_fd,\"x = 55.100000000000044\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(55.100000000000044):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(56.200000000000045) $pgm.puts "fprintf(out_fd,\"x = 56.200000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(56.200000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(57.30000000000005) $pgm.puts "fprintf(out_fd,\"x = 57.30000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(57.30000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(58.40000000000005) $pgm.puts "fprintf(out_fd,\"x = 58.40000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(58.40000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(59.50000000000005) $pgm.puts "fprintf(out_fd,\"x = 59.50000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(59.50000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(60.60000000000005) $pgm.puts "fprintf(out_fd,\"x = 60.60000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(60.60000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(61.70000000000005) $pgm.puts "fprintf(out_fd,\"x = 61.70000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(61.70000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(62.800000000000054) $pgm.puts "fprintf(out_fd,\"x = 62.800000000000054\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(62.800000000000054):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(63.900000000000055) $pgm.puts "fprintf(out_fd,\"x = 63.900000000000055\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(63.900000000000055):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(65.00000000000006) $pgm.puts "fprintf(out_fd,\"x = 65.00000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(65.00000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(66.10000000000005) $pgm.puts "fprintf(out_fd,\"x = 66.10000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(66.10000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(67.20000000000005) $pgm.puts "fprintf(out_fd,\"x = 67.20000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(67.20000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(68.30000000000004) $pgm.puts "fprintf(out_fd,\"x = 68.30000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(68.30000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(69.40000000000003) $pgm.puts "fprintf(out_fd,\"x = 69.40000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(69.40000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(70.50000000000003) $pgm.puts "fprintf(out_fd,\"x = 70.50000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(70.50000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(71.60000000000002) $pgm.puts "fprintf(out_fd,\"x = 71.60000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(71.60000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(72.70000000000002) $pgm.puts "fprintf(out_fd,\"x = 72.70000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(72.70000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(73.80000000000001) $pgm.puts "fprintf(out_fd,\"x = 73.80000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(73.80000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(74.9) $pgm.puts "fprintf(out_fd,\"x = 74.9\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(74.9):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(76.0) $pgm.puts "fprintf(out_fd,\"x = 76.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(76.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(77.1) $pgm.puts "fprintf(out_fd,\"x = 77.1\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(77.1):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(78.19999999999999) $pgm.puts "fprintf(out_fd,\"x = 78.19999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(78.19999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(79.29999999999998) $pgm.puts "fprintf(out_fd,\"x = 79.29999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(79.29999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(80.39999999999998) $pgm.puts "fprintf(out_fd,\"x = 80.39999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(80.39999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(81.49999999999997) $pgm.puts "fprintf(out_fd,\"x = 81.49999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(81.49999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(82.59999999999997) $pgm.puts "fprintf(out_fd,\"x = 82.59999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(82.59999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(83.69999999999996) $pgm.puts "fprintf(out_fd,\"x = 83.69999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(83.69999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(84.79999999999995) $pgm.puts "fprintf(out_fd,\"x = 84.79999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(84.79999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(85.89999999999995) $pgm.puts "fprintf(out_fd,\"x = 85.89999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(85.89999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(86.99999999999994) $pgm.puts "fprintf(out_fd,\"x = 86.99999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(86.99999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(88.09999999999994) $pgm.puts "fprintf(out_fd,\"x = 88.09999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(88.09999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(89.19999999999993) $pgm.puts "fprintf(out_fd,\"x = 89.19999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(89.19999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(90.29999999999993) $pgm.puts "fprintf(out_fd,\"x = 90.29999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(90.29999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(91.39999999999992) $pgm.puts "fprintf(out_fd,\"x = 91.39999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(91.39999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(92.49999999999991) $pgm.puts "fprintf(out_fd,\"x = 92.49999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(92.49999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(93.59999999999991) $pgm.puts "fprintf(out_fd,\"x = 93.59999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(93.59999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(94.6999999999999) $pgm.puts "fprintf(out_fd,\"x = 94.6999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(94.6999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(95.7999999999999) $pgm.puts "fprintf(out_fd,\"x = 95.7999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(95.7999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(96.89999999999989) $pgm.puts "fprintf(out_fd,\"x = 96.89999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(96.89999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(97.99999999999989) $pgm.puts "fprintf(out_fd,\"x = 97.99999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(97.99999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(99.09999999999988) $pgm.puts "fprintf(out_fd,\"x = 99.09999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(99.09999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(100.19999999999987) $pgm.puts "fprintf(out_fd,\"x = 100.19999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log $pgm.puts "fxm := ln(100.19999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(ln,log,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(ln,log,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(0.01) $pgm.puts "fprintf(out_fd,\"x = 0.01\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.01):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.11) $pgm.puts "fprintf(out_fd,\"x = 0.11\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.11):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.21000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.21000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.21000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.31000000000000005) $pgm.puts "fprintf(out_fd,\"x = 0.31000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.31000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.41000000000000003) $pgm.puts "fprintf(out_fd,\"x = 0.41000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.41000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.51) $pgm.puts "fprintf(out_fd,\"x = 0.51\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.51):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.61) $pgm.puts "fprintf(out_fd,\"x = 0.61\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.61):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.71) $pgm.puts "fprintf(out_fd,\"x = 0.71\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.71):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8099999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.8099999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.8099999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9099999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.9099999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.9099999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.01) $pgm.puts "fprintf(out_fd,\"x = 1.01\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.01):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.11) $pgm.puts "fprintf(out_fd,\"x = 1.11\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.11):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2100000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.2100000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.2100000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3100000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.3100000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.3100000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4100000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.4100000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.4100000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.5100000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.5100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.5100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.6100000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.6100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.6100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.7100000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.7100000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.7100000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.8100000000000007) $pgm.puts "fprintf(out_fd,\"x = 1.8100000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.8100000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.9100000000000008) $pgm.puts "fprintf(out_fd,\"x = 1.9100000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.9100000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.0100000000000007) $pgm.puts "fprintf(out_fd,\"x = 2.0100000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.0100000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.1100000000000008) $pgm.puts "fprintf(out_fd,\"x = 2.1100000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.1100000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.210000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.210000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.210000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.310000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.310000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.310000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.410000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.410000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.410000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.510000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.510000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.510000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.610000000000001) $pgm.puts "fprintf(out_fd,\"x = 2.610000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.610000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.7100000000000013) $pgm.puts "fprintf(out_fd,\"x = 2.7100000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.7100000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.8100000000000014) $pgm.puts "fprintf(out_fd,\"x = 2.8100000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.8100000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.9100000000000015) $pgm.puts "fprintf(out_fd,\"x = 2.9100000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.9100000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.0100000000000016) $pgm.puts "fprintf(out_fd,\"x = 3.0100000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.0100000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.1100000000000017) $pgm.puts "fprintf(out_fd,\"x = 3.1100000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.1100000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.2100000000000017) $pgm.puts "fprintf(out_fd,\"x = 3.2100000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.2100000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.310000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.310000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.310000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.410000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.410000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.410000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.510000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.510000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.510000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.610000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.610000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.610000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.710000000000002) $pgm.puts "fprintf(out_fd,\"x = 3.710000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.710000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.8100000000000023) $pgm.puts "fprintf(out_fd,\"x = 3.8100000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.8100000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.9100000000000024) $pgm.puts "fprintf(out_fd,\"x = 3.9100000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.9100000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.0100000000000025) $pgm.puts "fprintf(out_fd,\"x = 4.0100000000000025\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.0100000000000025):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.110000000000002) $pgm.puts "fprintf(out_fd,\"x = 4.110000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.110000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.210000000000002) $pgm.puts "fprintf(out_fd,\"x = 4.210000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.210000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.310000000000001) $pgm.puts "fprintf(out_fd,\"x = 4.310000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.310000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.410000000000001) $pgm.puts "fprintf(out_fd,\"x = 4.410000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.410000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.510000000000001) $pgm.puts "fprintf(out_fd,\"x = 4.510000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.510000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.61) $pgm.puts "fprintf(out_fd,\"x = 4.61\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.61):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.71) $pgm.puts "fprintf(out_fd,\"x = 4.71\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.71):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.81) $pgm.puts "fprintf(out_fd,\"x = 4.81\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.81):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.909999999999999) $pgm.puts "fprintf(out_fd,\"x = 4.909999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.909999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.009999999999999) $pgm.puts "fprintf(out_fd,\"x = 5.009999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.009999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.1099999999999985) $pgm.puts "fprintf(out_fd,\"x = 5.1099999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.1099999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.209999999999998) $pgm.puts "fprintf(out_fd,\"x = 5.209999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.209999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.309999999999998) $pgm.puts "fprintf(out_fd,\"x = 5.309999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.309999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.4099999999999975) $pgm.puts "fprintf(out_fd,\"x = 5.4099999999999975\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.4099999999999975):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.509999999999997) $pgm.puts "fprintf(out_fd,\"x = 5.509999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.509999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.609999999999997) $pgm.puts "fprintf(out_fd,\"x = 5.609999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.609999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.709999999999996) $pgm.puts "fprintf(out_fd,\"x = 5.709999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.709999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.809999999999996) $pgm.puts "fprintf(out_fd,\"x = 5.809999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.809999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.909999999999996) $pgm.puts "fprintf(out_fd,\"x = 5.909999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.909999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.009999999999995) $pgm.puts "fprintf(out_fd,\"x = 6.009999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.009999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.109999999999995) $pgm.puts "fprintf(out_fd,\"x = 6.109999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.109999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.209999999999995) $pgm.puts "fprintf(out_fd,\"x = 6.209999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.209999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.309999999999994) $pgm.puts "fprintf(out_fd,\"x = 6.309999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.309999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.409999999999994) $pgm.puts "fprintf(out_fd,\"x = 6.409999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.409999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.509999999999994) $pgm.puts "fprintf(out_fd,\"x = 6.509999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.509999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.609999999999993) $pgm.puts "fprintf(out_fd,\"x = 6.609999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.609999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.709999999999993) $pgm.puts "fprintf(out_fd,\"x = 6.709999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.709999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.8099999999999925) $pgm.puts "fprintf(out_fd,\"x = 6.8099999999999925\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.8099999999999925):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.909999999999992) $pgm.puts "fprintf(out_fd,\"x = 6.909999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.909999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.009999999999992) $pgm.puts "fprintf(out_fd,\"x = 7.009999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.009999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.109999999999991) $pgm.puts "fprintf(out_fd,\"x = 7.109999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.109999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.209999999999991) $pgm.puts "fprintf(out_fd,\"x = 7.209999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.209999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.309999999999991) $pgm.puts "fprintf(out_fd,\"x = 7.309999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.309999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.40999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.40999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.40999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.50999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.50999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.50999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.60999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.60999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.60999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.709999999999989) $pgm.puts "fprintf(out_fd,\"x = 7.709999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.709999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.809999999999989) $pgm.puts "fprintf(out_fd,\"x = 7.809999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.809999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.909999999999989) $pgm.puts "fprintf(out_fd,\"x = 7.909999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.909999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.00999999999999) $pgm.puts "fprintf(out_fd,\"x = 8.00999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.00999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.109999999999989) $pgm.puts "fprintf(out_fd,\"x = 8.109999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.109999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.209999999999988) $pgm.puts "fprintf(out_fd,\"x = 8.209999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.209999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.309999999999988) $pgm.puts "fprintf(out_fd,\"x = 8.309999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.309999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.409999999999988) $pgm.puts "fprintf(out_fd,\"x = 8.409999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.409999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.509999999999987) $pgm.puts "fprintf(out_fd,\"x = 8.509999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.509999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.609999999999987) $pgm.puts "fprintf(out_fd,\"x = 8.609999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.609999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.709999999999987) $pgm.puts "fprintf(out_fd,\"x = 8.709999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.709999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.809999999999986) $pgm.puts "fprintf(out_fd,\"x = 8.809999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.809999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.909999999999986) $pgm.puts "fprintf(out_fd,\"x = 8.909999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.909999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.009999999999986) $pgm.puts "fprintf(out_fd,\"x = 9.009999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.009999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.109999999999985) $pgm.puts "fprintf(out_fd,\"x = 9.109999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.109999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.209999999999985) $pgm.puts "fprintf(out_fd,\"x = 9.209999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.209999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.309999999999985) $pgm.puts "fprintf(out_fd,\"x = 9.309999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.309999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.409999999999984) $pgm.puts "fprintf(out_fd,\"x = 9.409999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.409999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.509999999999984) $pgm.puts "fprintf(out_fd,\"x = 9.509999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.509999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.609999999999983) $pgm.puts "fprintf(out_fd,\"x = 9.609999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.609999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.709999999999983) $pgm.puts "fprintf(out_fd,\"x = 9.709999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.709999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.809999999999983) $pgm.puts "fprintf(out_fd,\"x = 9.809999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.809999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.909999999999982) $pgm.puts "fprintf(out_fd,\"x = 9.909999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.909999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(0.1) $pgm.puts "fprintf(out_fd,\"x = 0.1\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(0.1):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(1.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(2.3000000000000003) $pgm.puts "fprintf(out_fd,\"x = 2.3000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(2.3000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(3.4000000000000004) $pgm.puts "fprintf(out_fd,\"x = 3.4000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(3.4000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(4.5) $pgm.puts "fprintf(out_fd,\"x = 4.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(4.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(5.6) $pgm.puts "fprintf(out_fd,\"x = 5.6\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(5.6):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(6.699999999999999) $pgm.puts "fprintf(out_fd,\"x = 6.699999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(6.699999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(7.799999999999999) $pgm.puts "fprintf(out_fd,\"x = 7.799999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(7.799999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(8.899999999999999) $pgm.puts "fprintf(out_fd,\"x = 8.899999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(8.899999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(9.999999999999998) $pgm.puts "fprintf(out_fd,\"x = 9.999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(9.999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(11.099999999999998) $pgm.puts "fprintf(out_fd,\"x = 11.099999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(11.099999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(12.199999999999998) $pgm.puts "fprintf(out_fd,\"x = 12.199999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(12.199999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(13.299999999999997) $pgm.puts "fprintf(out_fd,\"x = 13.299999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(13.299999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(14.399999999999997) $pgm.puts "fprintf(out_fd,\"x = 14.399999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(14.399999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(15.499999999999996) $pgm.puts "fprintf(out_fd,\"x = 15.499999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(15.499999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(16.599999999999998) $pgm.puts "fprintf(out_fd,\"x = 16.599999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(16.599999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(17.7) $pgm.puts "fprintf(out_fd,\"x = 17.7\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(17.7):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(18.8) $pgm.puts "fprintf(out_fd,\"x = 18.8\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(18.8):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(19.900000000000002) $pgm.puts "fprintf(out_fd,\"x = 19.900000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(19.900000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(21.000000000000004) $pgm.puts "fprintf(out_fd,\"x = 21.000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(21.000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(22.100000000000005) $pgm.puts "fprintf(out_fd,\"x = 22.100000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(22.100000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(23.200000000000006) $pgm.puts "fprintf(out_fd,\"x = 23.200000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(23.200000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(24.300000000000008) $pgm.puts "fprintf(out_fd,\"x = 24.300000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(24.300000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(25.40000000000001) $pgm.puts "fprintf(out_fd,\"x = 25.40000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(25.40000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(26.50000000000001) $pgm.puts "fprintf(out_fd,\"x = 26.50000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(26.50000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(27.600000000000012) $pgm.puts "fprintf(out_fd,\"x = 27.600000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(27.600000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(28.700000000000014) $pgm.puts "fprintf(out_fd,\"x = 28.700000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(28.700000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(29.800000000000015) $pgm.puts "fprintf(out_fd,\"x = 29.800000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(29.800000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(30.900000000000016) $pgm.puts "fprintf(out_fd,\"x = 30.900000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(30.900000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(32.000000000000014) $pgm.puts "fprintf(out_fd,\"x = 32.000000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(32.000000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(33.100000000000016) $pgm.puts "fprintf(out_fd,\"x = 33.100000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(33.100000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(34.20000000000002) $pgm.puts "fprintf(out_fd,\"x = 34.20000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(34.20000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(35.30000000000002) $pgm.puts "fprintf(out_fd,\"x = 35.30000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(35.30000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(36.40000000000002) $pgm.puts "fprintf(out_fd,\"x = 36.40000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(36.40000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(37.50000000000002) $pgm.puts "fprintf(out_fd,\"x = 37.50000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(37.50000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(38.60000000000002) $pgm.puts "fprintf(out_fd,\"x = 38.60000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(38.60000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(39.700000000000024) $pgm.puts "fprintf(out_fd,\"x = 39.700000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(39.700000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(40.800000000000026) $pgm.puts "fprintf(out_fd,\"x = 40.800000000000026\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(40.800000000000026):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(41.90000000000003) $pgm.puts "fprintf(out_fd,\"x = 41.90000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(41.90000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(43.00000000000003) $pgm.puts "fprintf(out_fd,\"x = 43.00000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(43.00000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(44.10000000000003) $pgm.puts "fprintf(out_fd,\"x = 44.10000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(44.10000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(45.20000000000003) $pgm.puts "fprintf(out_fd,\"x = 45.20000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(45.20000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(46.30000000000003) $pgm.puts "fprintf(out_fd,\"x = 46.30000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(46.30000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(47.400000000000034) $pgm.puts "fprintf(out_fd,\"x = 47.400000000000034\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(47.400000000000034):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(48.500000000000036) $pgm.puts "fprintf(out_fd,\"x = 48.500000000000036\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(48.500000000000036):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(49.60000000000004) $pgm.puts "fprintf(out_fd,\"x = 49.60000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(49.60000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(50.70000000000004) $pgm.puts "fprintf(out_fd,\"x = 50.70000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(50.70000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(51.80000000000004) $pgm.puts "fprintf(out_fd,\"x = 51.80000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(51.80000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(52.90000000000004) $pgm.puts "fprintf(out_fd,\"x = 52.90000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(52.90000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(54.00000000000004) $pgm.puts "fprintf(out_fd,\"x = 54.00000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(54.00000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(55.100000000000044) $pgm.puts "fprintf(out_fd,\"x = 55.100000000000044\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(55.100000000000044):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(56.200000000000045) $pgm.puts "fprintf(out_fd,\"x = 56.200000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(56.200000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(57.30000000000005) $pgm.puts "fprintf(out_fd,\"x = 57.30000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(57.30000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(58.40000000000005) $pgm.puts "fprintf(out_fd,\"x = 58.40000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(58.40000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(59.50000000000005) $pgm.puts "fprintf(out_fd,\"x = 59.50000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(59.50000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(60.60000000000005) $pgm.puts "fprintf(out_fd,\"x = 60.60000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(60.60000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(61.70000000000005) $pgm.puts "fprintf(out_fd,\"x = 61.70000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(61.70000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(62.800000000000054) $pgm.puts "fprintf(out_fd,\"x = 62.800000000000054\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(62.800000000000054):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(63.900000000000055) $pgm.puts "fprintf(out_fd,\"x = 63.900000000000055\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(63.900000000000055):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(65.00000000000006) $pgm.puts "fprintf(out_fd,\"x = 65.00000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(65.00000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(66.10000000000005) $pgm.puts "fprintf(out_fd,\"x = 66.10000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(66.10000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(67.20000000000005) $pgm.puts "fprintf(out_fd,\"x = 67.20000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(67.20000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(68.30000000000004) $pgm.puts "fprintf(out_fd,\"x = 68.30000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(68.30000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(69.40000000000003) $pgm.puts "fprintf(out_fd,\"x = 69.40000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(69.40000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(70.50000000000003) $pgm.puts "fprintf(out_fd,\"x = 70.50000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(70.50000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(71.60000000000002) $pgm.puts "fprintf(out_fd,\"x = 71.60000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(71.60000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(72.70000000000002) $pgm.puts "fprintf(out_fd,\"x = 72.70000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(72.70000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(73.80000000000001) $pgm.puts "fprintf(out_fd,\"x = 73.80000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(73.80000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(74.9) $pgm.puts "fprintf(out_fd,\"x = 74.9\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(74.9):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(76.0) $pgm.puts "fprintf(out_fd,\"x = 76.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(76.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(77.1) $pgm.puts "fprintf(out_fd,\"x = 77.1\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(77.1):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(78.19999999999999) $pgm.puts "fprintf(out_fd,\"x = 78.19999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(78.19999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(79.29999999999998) $pgm.puts "fprintf(out_fd,\"x = 79.29999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(79.29999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(80.39999999999998) $pgm.puts "fprintf(out_fd,\"x = 80.39999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(80.39999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(81.49999999999997) $pgm.puts "fprintf(out_fd,\"x = 81.49999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(81.49999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(82.59999999999997) $pgm.puts "fprintf(out_fd,\"x = 82.59999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(82.59999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(83.69999999999996) $pgm.puts "fprintf(out_fd,\"x = 83.69999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(83.69999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(84.79999999999995) $pgm.puts "fprintf(out_fd,\"x = 84.79999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(84.79999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(85.89999999999995) $pgm.puts "fprintf(out_fd,\"x = 85.89999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(85.89999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(86.99999999999994) $pgm.puts "fprintf(out_fd,\"x = 86.99999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(86.99999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(88.09999999999994) $pgm.puts "fprintf(out_fd,\"x = 88.09999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(88.09999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(89.19999999999993) $pgm.puts "fprintf(out_fd,\"x = 89.19999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(89.19999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(90.29999999999993) $pgm.puts "fprintf(out_fd,\"x = 90.29999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(90.29999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(91.39999999999992) $pgm.puts "fprintf(out_fd,\"x = 91.39999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(91.39999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(92.49999999999991) $pgm.puts "fprintf(out_fd,\"x = 92.49999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(92.49999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(93.59999999999991) $pgm.puts "fprintf(out_fd,\"x = 93.59999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(93.59999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(94.6999999999999) $pgm.puts "fprintf(out_fd,\"x = 94.6999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(94.6999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(95.7999999999999) $pgm.puts "fprintf(out_fd,\"x = 95.7999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(95.7999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(96.89999999999989) $pgm.puts "fprintf(out_fd,\"x = 96.89999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(96.89999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(97.99999999999989) $pgm.puts "fprintf(out_fd,\"x = 97.99999999999989\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(97.99999999999989):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(99.09999999999988) $pgm.puts "fprintf(out_fd,\"x = 99.09999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(99.09999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(100.19999999999987) $pgm.puts "fprintf(out_fd,\"x = 100.19999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.log10 $pgm.puts "fxm := log10(100.19999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(log10,log10,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(log10,log10,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sinh $pgm.puts "fxm := sinh(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sinh,sinh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.cosh $pgm.puts "fxm := cosh(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(cosh,cosh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.tanh $pgm.puts "fxm := tanh(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(tanh,tanh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(0.0) $pgm.puts "fprintf(out_fd,\"x = 0.0\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.0):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1) $pgm.puts "fprintf(out_fd,\"x = 0.1\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.1):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2) $pgm.puts "fprintf(out_fd,\"x = 0.2\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.2):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.30000000000000004) $pgm.puts "fprintf(out_fd,\"x = 0.30000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.30000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.30000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.30000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.4) $pgm.puts "fprintf(out_fd,\"x = 0.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5) $pgm.puts "fprintf(out_fd,\"x = 0.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6) $pgm.puts "fprintf(out_fd,\"x = 0.6\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.6):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7) $pgm.puts "fprintf(out_fd,\"x = 0.7\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.7):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.7999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.7999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.7999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.8999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.8999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.8999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9999999999999999) $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(0.9999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.9999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,0.9999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0999999999999999) $pgm.puts "fprintf(out_fd,\"x = 1.0999999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(1.0999999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2) $pgm.puts "fprintf(out_fd,\"x = 1.2\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(1.2):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3) $pgm.puts "fprintf(out_fd,\"x = 1.3\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(1.3):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000001) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.sqrt $pgm.puts "fxm := sqrt(1.4000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.4000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(sqrt,sqrt,1.4000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.abs $pgm.puts "fxm := abs(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(abs,abs,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(abs,abs,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-19.5) $pgm.puts "fprintf(out_fd,\"x = -19.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-19.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.38) $pgm.puts "fprintf(out_fd,\"x = -19.38\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-19.38):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.259999999999998) $pgm.puts "fprintf(out_fd,\"x = -19.259999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-19.259999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.259999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.259999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.139999999999997) $pgm.puts "fprintf(out_fd,\"x = -19.139999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-19.139999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.139999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.139999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.019999999999996) $pgm.puts "fprintf(out_fd,\"x = -19.019999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-19.019999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.019999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-19.019999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.899999999999995) $pgm.puts "fprintf(out_fd,\"x = -18.899999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.899999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.779999999999994) $pgm.puts "fprintf(out_fd,\"x = -18.779999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.779999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.779999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.779999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.659999999999993) $pgm.puts "fprintf(out_fd,\"x = -18.659999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.659999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.539999999999992) $pgm.puts "fprintf(out_fd,\"x = -18.539999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.539999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.539999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.539999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.41999999999999) $pgm.puts "fprintf(out_fd,\"x = -18.41999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.41999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.41999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.41999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.29999999999999) $pgm.puts "fprintf(out_fd,\"x = -18.29999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.29999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.29999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.29999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.17999999999999) $pgm.puts "fprintf(out_fd,\"x = -18.17999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.17999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.17999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.17999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.059999999999988) $pgm.puts "fprintf(out_fd,\"x = -18.059999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-18.059999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.059999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-18.059999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.939999999999987) $pgm.puts "fprintf(out_fd,\"x = -17.939999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.939999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.939999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.939999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.819999999999986) $pgm.puts "fprintf(out_fd,\"x = -17.819999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.819999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.819999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.819999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.699999999999985) $pgm.puts "fprintf(out_fd,\"x = -17.699999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.699999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.699999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.699999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.579999999999984) $pgm.puts "fprintf(out_fd,\"x = -17.579999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.579999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.579999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.579999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.459999999999983) $pgm.puts "fprintf(out_fd,\"x = -17.459999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.459999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.459999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.459999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.339999999999982) $pgm.puts "fprintf(out_fd,\"x = -17.339999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.339999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.21999999999998) $pgm.puts "fprintf(out_fd,\"x = -17.21999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.21999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.21999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.21999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.09999999999998) $pgm.puts "fprintf(out_fd,\"x = -17.09999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-17.09999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.09999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-17.09999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.97999999999998) $pgm.puts "fprintf(out_fd,\"x = -16.97999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.97999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.97999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.97999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.859999999999978) $pgm.puts "fprintf(out_fd,\"x = -16.859999999999978\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.859999999999978):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.859999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.859999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.739999999999977) $pgm.puts "fprintf(out_fd,\"x = -16.739999999999977\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.739999999999977):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.739999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.739999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.619999999999976) $pgm.puts "fprintf(out_fd,\"x = -16.619999999999976\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.619999999999976):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.619999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.619999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.499999999999975) $pgm.puts "fprintf(out_fd,\"x = -16.499999999999975\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.499999999999975):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.499999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.499999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.379999999999974) $pgm.puts "fprintf(out_fd,\"x = -16.379999999999974\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.379999999999974):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.379999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.379999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.259999999999973) $pgm.puts "fprintf(out_fd,\"x = -16.259999999999973\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.259999999999973):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.259999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.259999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.139999999999972) $pgm.puts "fprintf(out_fd,\"x = -16.139999999999972\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.139999999999972):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.139999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.139999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.01999999999997) $pgm.puts "fprintf(out_fd,\"x = -16.01999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-16.01999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.01999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-16.01999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.899999999999972) $pgm.puts "fprintf(out_fd,\"x = -15.899999999999972\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.899999999999972):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.899999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.899999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.779999999999973) $pgm.puts "fprintf(out_fd,\"x = -15.779999999999973\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.779999999999973):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.779999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.779999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.659999999999973) $pgm.puts "fprintf(out_fd,\"x = -15.659999999999973\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.659999999999973):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.659999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.659999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.539999999999974) $pgm.puts "fprintf(out_fd,\"x = -15.539999999999974\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.539999999999974):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.539999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.539999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.419999999999975) $pgm.puts "fprintf(out_fd,\"x = -15.419999999999975\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.419999999999975):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.419999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.419999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.299999999999976) $pgm.puts "fprintf(out_fd,\"x = -15.299999999999976\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.299999999999976):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.299999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.299999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.179999999999977) $pgm.puts "fprintf(out_fd,\"x = -15.179999999999977\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.179999999999977):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.179999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.179999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.059999999999977) $pgm.puts "fprintf(out_fd,\"x = -15.059999999999977\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-15.059999999999977):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.059999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-15.059999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.939999999999978) $pgm.puts "fprintf(out_fd,\"x = -14.939999999999978\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.939999999999978):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.939999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.939999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.819999999999979) $pgm.puts "fprintf(out_fd,\"x = -14.819999999999979\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.819999999999979):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.819999999999979,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.819999999999979,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.69999999999998) $pgm.puts "fprintf(out_fd,\"x = -14.69999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.69999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.69999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.69999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.57999999999998) $pgm.puts "fprintf(out_fd,\"x = -14.57999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.57999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.57999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.57999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.459999999999981) $pgm.puts "fprintf(out_fd,\"x = -14.459999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.459999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.459999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.459999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.339999999999982) $pgm.puts "fprintf(out_fd,\"x = -14.339999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.339999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.219999999999983) $pgm.puts "fprintf(out_fd,\"x = -14.219999999999983\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.219999999999983):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.219999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.219999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.099999999999984) $pgm.puts "fprintf(out_fd,\"x = -14.099999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-14.099999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.099999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-14.099999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.979999999999984) $pgm.puts "fprintf(out_fd,\"x = -13.979999999999984\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.979999999999984):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.979999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.979999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.859999999999985) $pgm.puts "fprintf(out_fd,\"x = -13.859999999999985\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.859999999999985):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.859999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.859999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.739999999999986) $pgm.puts "fprintf(out_fd,\"x = -13.739999999999986\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.739999999999986):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.739999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.739999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.619999999999987) $pgm.puts "fprintf(out_fd,\"x = -13.619999999999987\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.619999999999987):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.619999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.619999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.499999999999988) $pgm.puts "fprintf(out_fd,\"x = -13.499999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.499999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.499999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.499999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.379999999999988) $pgm.puts "fprintf(out_fd,\"x = -13.379999999999988\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.379999999999988):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.379999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.379999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.25999999999999) $pgm.puts "fprintf(out_fd,\"x = -13.25999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.25999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.25999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.25999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.13999999999999) $pgm.puts "fprintf(out_fd,\"x = -13.13999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.13999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.13999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.13999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.01999999999999) $pgm.puts "fprintf(out_fd,\"x = -13.01999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-13.01999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.01999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-13.01999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.899999999999991) $pgm.puts "fprintf(out_fd,\"x = -12.899999999999991\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.899999999999991):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.899999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.899999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.779999999999992) $pgm.puts "fprintf(out_fd,\"x = -12.779999999999992\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.779999999999992):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.779999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.779999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.659999999999993) $pgm.puts "fprintf(out_fd,\"x = -12.659999999999993\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.659999999999993):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.539999999999994) $pgm.puts "fprintf(out_fd,\"x = -12.539999999999994\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.539999999999994):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.539999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.539999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.419999999999995) $pgm.puts "fprintf(out_fd,\"x = -12.419999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.419999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.419999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.419999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.299999999999995) $pgm.puts "fprintf(out_fd,\"x = -12.299999999999995\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.299999999999995):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.179999999999996) $pgm.puts "fprintf(out_fd,\"x = -12.179999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.179999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.179999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.179999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.059999999999997) $pgm.puts "fprintf(out_fd,\"x = -12.059999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-12.059999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.059999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-12.059999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.939999999999998) $pgm.puts "fprintf(out_fd,\"x = -11.939999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.939999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.939999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.939999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.819999999999999) $pgm.puts "fprintf(out_fd,\"x = -11.819999999999999\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.819999999999999):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.819999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.819999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.7) $pgm.puts "fprintf(out_fd,\"x = -11.7\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.7):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.58) $pgm.puts "fprintf(out_fd,\"x = -11.58\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.58):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.46) $pgm.puts "fprintf(out_fd,\"x = -11.46\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.46):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.340000000000002) $pgm.puts "fprintf(out_fd,\"x = -11.340000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.340000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.340000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.340000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.220000000000002) $pgm.puts "fprintf(out_fd,\"x = -11.220000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.220000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.220000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.220000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.100000000000003) $pgm.puts "fprintf(out_fd,\"x = -11.100000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-11.100000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-11.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.980000000000004) $pgm.puts "fprintf(out_fd,\"x = -10.980000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.980000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.980000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.980000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.860000000000005) $pgm.puts "fprintf(out_fd,\"x = -10.860000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.860000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.860000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.860000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.740000000000006) $pgm.puts "fprintf(out_fd,\"x = -10.740000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.740000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.740000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.740000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.620000000000006) $pgm.puts "fprintf(out_fd,\"x = -10.620000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.620000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.620000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.620000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.500000000000007) $pgm.puts "fprintf(out_fd,\"x = -10.500000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.500000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.380000000000008) $pgm.puts "fprintf(out_fd,\"x = -10.380000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.380000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.380000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.380000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.260000000000009) $pgm.puts "fprintf(out_fd,\"x = -10.260000000000009\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.260000000000009):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.260000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.260000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.14000000000001) $pgm.puts "fprintf(out_fd,\"x = -10.14000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.14000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.14000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.14000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.02000000000001) $pgm.puts "fprintf(out_fd,\"x = -10.02000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-10.02000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.02000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-10.02000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.900000000000011) $pgm.puts "fprintf(out_fd,\"x = -9.900000000000011\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.900000000000011):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.900000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.900000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.780000000000012) $pgm.puts "fprintf(out_fd,\"x = -9.780000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.780000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.780000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.780000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.660000000000013) $pgm.puts "fprintf(out_fd,\"x = -9.660000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.660000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.660000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.660000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.540000000000013) $pgm.puts "fprintf(out_fd,\"x = -9.540000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.540000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.540000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.540000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.420000000000014) $pgm.puts "fprintf(out_fd,\"x = -9.420000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.420000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.420000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.420000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.300000000000015) $pgm.puts "fprintf(out_fd,\"x = -9.300000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.300000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.180000000000016) $pgm.puts "fprintf(out_fd,\"x = -9.180000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.180000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.180000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.180000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.060000000000016) $pgm.puts "fprintf(out_fd,\"x = -9.060000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-9.060000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.060000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-9.060000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.940000000000017) $pgm.puts "fprintf(out_fd,\"x = -8.940000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.940000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.940000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.940000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.820000000000018) $pgm.puts "fprintf(out_fd,\"x = -8.820000000000018\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.820000000000018):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.820000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.820000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.700000000000019) $pgm.puts "fprintf(out_fd,\"x = -8.700000000000019\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.700000000000019):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.700000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.700000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.58000000000002) $pgm.puts "fprintf(out_fd,\"x = -8.58000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.58000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.46000000000002) $pgm.puts "fprintf(out_fd,\"x = -8.46000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.46000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.340000000000021) $pgm.puts "fprintf(out_fd,\"x = -8.340000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.340000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.340000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.340000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.220000000000022) $pgm.puts "fprintf(out_fd,\"x = -8.220000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.220000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.220000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.220000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.100000000000023) $pgm.puts "fprintf(out_fd,\"x = -8.100000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-8.100000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-8.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.980000000000023) $pgm.puts "fprintf(out_fd,\"x = -7.980000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-7.980000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.980000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.980000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.8600000000000225) $pgm.puts "fprintf(out_fd,\"x = -7.8600000000000225\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-7.8600000000000225):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.8600000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.8600000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.740000000000022) $pgm.puts "fprintf(out_fd,\"x = -7.740000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-7.740000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.740000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.740000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-7.620000000000022) $pgm.puts "fprintf(out_fd,\"x = -7.620000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.trunc $pgm.puts "fxm := trunc(-7.620000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.620000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(trunc,trunc,-7.620000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-19.5) $pgm.puts "fprintf(out_fd,\"x = -19.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-19.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.39) $pgm.puts "fprintf(out_fd,\"x = -19.39\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-19.39):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.28) $pgm.puts "fprintf(out_fd,\"x = -19.28\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-19.28):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.17) $pgm.puts "fprintf(out_fd,\"x = -19.17\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-19.17):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-19.060000000000002) $pgm.puts "fprintf(out_fd,\"x = -19.060000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-19.060000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-19.060000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-19.060000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.950000000000003) $pgm.puts "fprintf(out_fd,\"x = -18.950000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.950000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.950000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.950000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.840000000000003) $pgm.puts "fprintf(out_fd,\"x = -18.840000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.840000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.840000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.840000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.730000000000004) $pgm.puts "fprintf(out_fd,\"x = -18.730000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.730000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.730000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.730000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.620000000000005) $pgm.puts "fprintf(out_fd,\"x = -18.620000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.620000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.620000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.620000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.510000000000005) $pgm.puts "fprintf(out_fd,\"x = -18.510000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.510000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.510000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.510000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.400000000000006) $pgm.puts "fprintf(out_fd,\"x = -18.400000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.400000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.290000000000006) $pgm.puts "fprintf(out_fd,\"x = -18.290000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.290000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.290000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.290000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.180000000000007) $pgm.puts "fprintf(out_fd,\"x = -18.180000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.180000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.180000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.180000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-18.070000000000007) $pgm.puts "fprintf(out_fd,\"x = -18.070000000000007\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-18.070000000000007):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-18.070000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-18.070000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.960000000000008) $pgm.puts "fprintf(out_fd,\"x = -17.960000000000008\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.960000000000008):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.960000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.960000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.85000000000001) $pgm.puts "fprintf(out_fd,\"x = -17.85000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.85000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.85000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.85000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.74000000000001) $pgm.puts "fprintf(out_fd,\"x = -17.74000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.74000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.74000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.74000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.63000000000001) $pgm.puts "fprintf(out_fd,\"x = -17.63000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.63000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.63000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.63000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.52000000000001) $pgm.puts "fprintf(out_fd,\"x = -17.52000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.52000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.52000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.52000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.41000000000001) $pgm.puts "fprintf(out_fd,\"x = -17.41000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.41000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.41000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.41000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.30000000000001) $pgm.puts "fprintf(out_fd,\"x = -17.30000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.30000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.190000000000012) $pgm.puts "fprintf(out_fd,\"x = -17.190000000000012\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.190000000000012):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.190000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.190000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-17.080000000000013) $pgm.puts "fprintf(out_fd,\"x = -17.080000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-17.080000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-17.080000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-17.080000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.970000000000013) $pgm.puts "fprintf(out_fd,\"x = -16.970000000000013\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.970000000000013):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.970000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.970000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.860000000000014) $pgm.puts "fprintf(out_fd,\"x = -16.860000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.860000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.860000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.860000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.750000000000014) $pgm.puts "fprintf(out_fd,\"x = -16.750000000000014\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.750000000000014):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.750000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.750000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.640000000000015) $pgm.puts "fprintf(out_fd,\"x = -16.640000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.640000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.640000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.640000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.530000000000015) $pgm.puts "fprintf(out_fd,\"x = -16.530000000000015\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.530000000000015):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.530000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.530000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.420000000000016) $pgm.puts "fprintf(out_fd,\"x = -16.420000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.420000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.420000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.420000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.310000000000016) $pgm.puts "fprintf(out_fd,\"x = -16.310000000000016\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.310000000000016):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.310000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.310000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.200000000000017) $pgm.puts "fprintf(out_fd,\"x = -16.200000000000017\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.200000000000017):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.200000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.200000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-16.090000000000018) $pgm.puts "fprintf(out_fd,\"x = -16.090000000000018\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-16.090000000000018):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-16.090000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-16.090000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.980000000000018) $pgm.puts "fprintf(out_fd,\"x = -15.980000000000018\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.980000000000018):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.980000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.980000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.870000000000019) $pgm.puts "fprintf(out_fd,\"x = -15.870000000000019\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.870000000000019):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.870000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.870000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.76000000000002) $pgm.puts "fprintf(out_fd,\"x = -15.76000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.76000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.76000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.76000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.65000000000002) $pgm.puts "fprintf(out_fd,\"x = -15.65000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.65000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.65000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.65000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.54000000000002) $pgm.puts "fprintf(out_fd,\"x = -15.54000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.54000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.54000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.54000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.430000000000021) $pgm.puts "fprintf(out_fd,\"x = -15.430000000000021\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.430000000000021):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.430000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.430000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.320000000000022) $pgm.puts "fprintf(out_fd,\"x = -15.320000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.320000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.320000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.320000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.210000000000022) $pgm.puts "fprintf(out_fd,\"x = -15.210000000000022\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.210000000000022):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.210000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.210000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-15.100000000000023) $pgm.puts "fprintf(out_fd,\"x = -15.100000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-15.100000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-15.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-15.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.990000000000023) $pgm.puts "fprintf(out_fd,\"x = -14.990000000000023\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.990000000000023):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.990000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.990000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.880000000000024) $pgm.puts "fprintf(out_fd,\"x = -14.880000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.880000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.880000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.880000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.770000000000024) $pgm.puts "fprintf(out_fd,\"x = -14.770000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.770000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.770000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.770000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.660000000000025) $pgm.puts "fprintf(out_fd,\"x = -14.660000000000025\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.660000000000025):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.660000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.660000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.550000000000026) $pgm.puts "fprintf(out_fd,\"x = -14.550000000000026\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.550000000000026):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.550000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.550000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.440000000000026) $pgm.puts "fprintf(out_fd,\"x = -14.440000000000026\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.440000000000026):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.440000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.440000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.330000000000027) $pgm.puts "fprintf(out_fd,\"x = -14.330000000000027\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.330000000000027):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.330000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.330000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.220000000000027) $pgm.puts "fprintf(out_fd,\"x = -14.220000000000027\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.220000000000027):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.220000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.220000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.110000000000028) $pgm.puts "fprintf(out_fd,\"x = -14.110000000000028\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.110000000000028):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.110000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.110000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-14.000000000000028) $pgm.puts "fprintf(out_fd,\"x = -14.000000000000028\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-14.000000000000028):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-14.000000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-14.000000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.890000000000029) $pgm.puts "fprintf(out_fd,\"x = -13.890000000000029\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.890000000000029):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.890000000000029,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.890000000000029,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.78000000000003) $pgm.puts "fprintf(out_fd,\"x = -13.78000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.78000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.78000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.78000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.67000000000003) $pgm.puts "fprintf(out_fd,\"x = -13.67000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.67000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.67000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.67000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.56000000000003) $pgm.puts "fprintf(out_fd,\"x = -13.56000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.56000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.56000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.56000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.450000000000031) $pgm.puts "fprintf(out_fd,\"x = -13.450000000000031\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.450000000000031):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.450000000000031,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.450000000000031,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.340000000000032) $pgm.puts "fprintf(out_fd,\"x = -13.340000000000032\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.340000000000032):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.340000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.340000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.230000000000032) $pgm.puts "fprintf(out_fd,\"x = -13.230000000000032\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.230000000000032):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.230000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.230000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.120000000000033) $pgm.puts "fprintf(out_fd,\"x = -13.120000000000033\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.120000000000033):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.120000000000033,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.120000000000033,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-13.010000000000034) $pgm.puts "fprintf(out_fd,\"x = -13.010000000000034\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-13.010000000000034):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-13.010000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-13.010000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.900000000000034) $pgm.puts "fprintf(out_fd,\"x = -12.900000000000034\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.900000000000034):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.900000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.900000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.790000000000035) $pgm.puts "fprintf(out_fd,\"x = -12.790000000000035\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.790000000000035):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.790000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.790000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.680000000000035) $pgm.puts "fprintf(out_fd,\"x = -12.680000000000035\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.680000000000035):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.680000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.680000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.570000000000036) $pgm.puts "fprintf(out_fd,\"x = -12.570000000000036\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.570000000000036):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.570000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.570000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.460000000000036) $pgm.puts "fprintf(out_fd,\"x = -12.460000000000036\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.460000000000036):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.460000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.460000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.350000000000037) $pgm.puts "fprintf(out_fd,\"x = -12.350000000000037\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.350000000000037):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.350000000000037,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.350000000000037,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.240000000000038) $pgm.puts "fprintf(out_fd,\"x = -12.240000000000038\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.240000000000038):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.240000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.240000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.130000000000038) $pgm.puts "fprintf(out_fd,\"x = -12.130000000000038\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.130000000000038):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.130000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.130000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-12.020000000000039) $pgm.puts "fprintf(out_fd,\"x = -12.020000000000039\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-12.020000000000039):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-12.020000000000039,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-12.020000000000039,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.91000000000004) $pgm.puts "fprintf(out_fd,\"x = -11.91000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.91000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.91000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.91000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.80000000000004) $pgm.puts "fprintf(out_fd,\"x = -11.80000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.80000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.69000000000004) $pgm.puts "fprintf(out_fd,\"x = -11.69000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.69000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.69000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.69000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.580000000000041) $pgm.puts "fprintf(out_fd,\"x = -11.580000000000041\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.580000000000041):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.580000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.580000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.470000000000041) $pgm.puts "fprintf(out_fd,\"x = -11.470000000000041\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.470000000000041):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.470000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.470000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.360000000000042) $pgm.puts "fprintf(out_fd,\"x = -11.360000000000042\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.360000000000042):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.360000000000042,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.360000000000042,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.250000000000043) $pgm.puts "fprintf(out_fd,\"x = -11.250000000000043\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.250000000000043):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.250000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.250000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.140000000000043) $pgm.puts "fprintf(out_fd,\"x = -11.140000000000043\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.140000000000043):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.140000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.140000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-11.030000000000044) $pgm.puts "fprintf(out_fd,\"x = -11.030000000000044\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-11.030000000000044):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-11.030000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-11.030000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.920000000000044) $pgm.puts "fprintf(out_fd,\"x = -10.920000000000044\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.920000000000044):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.920000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.920000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.810000000000045) $pgm.puts "fprintf(out_fd,\"x = -10.810000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.810000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.810000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.810000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.700000000000045) $pgm.puts "fprintf(out_fd,\"x = -10.700000000000045\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.700000000000045):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.700000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.700000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.590000000000046) $pgm.puts "fprintf(out_fd,\"x = -10.590000000000046\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.590000000000046):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.590000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.590000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.480000000000047) $pgm.puts "fprintf(out_fd,\"x = -10.480000000000047\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.480000000000047):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.480000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.480000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.370000000000047) $pgm.puts "fprintf(out_fd,\"x = -10.370000000000047\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.370000000000047):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.370000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.370000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.260000000000048) $pgm.puts "fprintf(out_fd,\"x = -10.260000000000048\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.260000000000048):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.260000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.260000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.150000000000048) $pgm.puts "fprintf(out_fd,\"x = -10.150000000000048\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.150000000000048):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.150000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.150000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-10.040000000000049) $pgm.puts "fprintf(out_fd,\"x = -10.040000000000049\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-10.040000000000049):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-10.040000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-10.040000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.93000000000005) $pgm.puts "fprintf(out_fd,\"x = -9.93000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.93000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.82000000000005) $pgm.puts "fprintf(out_fd,\"x = -9.82000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.82000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.71000000000005) $pgm.puts "fprintf(out_fd,\"x = -9.71000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.71000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.600000000000051) $pgm.puts "fprintf(out_fd,\"x = -9.600000000000051\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.600000000000051):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.600000000000051,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.600000000000051,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.490000000000052) $pgm.puts "fprintf(out_fd,\"x = -9.490000000000052\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.490000000000052):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.490000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.490000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.380000000000052) $pgm.puts "fprintf(out_fd,\"x = -9.380000000000052\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.380000000000052):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.380000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.380000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.270000000000053) $pgm.puts "fprintf(out_fd,\"x = -9.270000000000053\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.270000000000053):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.270000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.270000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.160000000000053) $pgm.puts "fprintf(out_fd,\"x = -9.160000000000053\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.160000000000053):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.160000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.160000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-9.050000000000054) $pgm.puts "fprintf(out_fd,\"x = -9.050000000000054\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-9.050000000000054):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-9.050000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-9.050000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.940000000000055) $pgm.puts "fprintf(out_fd,\"x = -8.940000000000055\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-8.940000000000055):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-8.940000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-8.940000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.830000000000055) $pgm.puts "fprintf(out_fd,\"x = -8.830000000000055\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-8.830000000000055):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-8.830000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-8.830000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.720000000000056) $pgm.puts "fprintf(out_fd,\"x = -8.720000000000056\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-8.720000000000056):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-8.720000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-8.720000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-8.610000000000056) $pgm.puts "fprintf(out_fd,\"x = -8.610000000000056\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.frac $pgm.puts "fxm := frac(-8.610000000000056):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(frac,frac,-8.610000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(frac,frac,-8.610000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" 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\"):" x = c(-1.5) $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-1.5):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.4) $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-1.4):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-1.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.1999999999999997) $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-1.1999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-1.0999999999999996) $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-1.0999999999999996):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.9999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.9999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.8999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.8999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.7999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.7999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.6999999999999997) $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.6999999999999997):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.5999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.5999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.4999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.4999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.3999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.3999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.2999999999999998) $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.2999999999999998):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.19999999999999982) $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.19999999999999982):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(-0.09999999999999981) $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(-0.09999999999999981):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.942890293094024e-16) $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(1.942890293094024e-16):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.1000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.1000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.2000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.2000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.3000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.3000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.40000000000000024) $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.40000000000000024):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.5000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.5000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.6000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.6000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.7000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.7000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.8000000000000002) $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.8000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(0.9000000000000001) $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(0.9000000000000001):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.0000000000000002) $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(1.0000000000000002):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.1000000000000003) $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(1.1000000000000003):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.2000000000000004) $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(1.2000000000000004):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.3000000000000005) $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(1.3000000000000005):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" x = c(1.4000000000000006) $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = x.erf $pgm.puts "fxm := erf(1.4000000000000006):" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "dump_except(erf,erf,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "if (abs_err > fxrerr) then" $pgm.puts "fprintf(except_fd,\"ABS ERROR > ESTIMATE\\n\"):" $pgm.puts "dump_except(erf,erf,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"fxr = %30.24e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"fxm = %30.24e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"fxrerr = %30.24e\\n\",fxrerr):" $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 "fclose(out_fd):" $pgm.puts "fclose(except_fd):" puts "End of APFP Regression Test"