facF13 := [5.4804533763917*y+4.3843713204474*x-.47930757676505e-4*x^2-2.192138\
1291323*x^3+2.1921961513177*x^5+1.0960983191900*x^4-3.2882918036818*y^5-1.0960\
641114046*y^3+3.2883060173592*y^2+5.4804550700951*y^4-2.1921455900865*x^2*y^3-\
4.3843797511770*x^2*y^2+2.1921417474717*x^2*y-2.1921986266094*x*y^4-2.19219565\
57038*x*y^3+5.4804092935803*x*y^2-5.4804543133379*x^3*y+2.1921523805244*x^3*y^
2-3.2882923098561*x*y-5.4804574464312*x^4*y-2.1921570693304, 2.8654746880543*y
+.10016263129615e-4*x-.95513777962868*x^2-4.7758050717099*x^3+.29093245850045e\
-5*x^5-2.8654872924528*x^4-3.8206406362235*y^5+4.7757903247325*y^3-1.910346194\
1690*y^2+4.7758078216461*y^4-3.8206390961052*x^2*y^3+1.9103171031517*x^2*y^2-3\
.8206219518953*x^2*y+.95516258039185*x*y^4+4.7758073969470*x*y^3+2.86548830957\
30*x*y^2+1.9103283783331*x^3*y+2.8654910264132*x^3*y^2-.95513925939286*x*y-2.8\
654938305093*x^4*y+3.8206613607599, 2.8654746880543*y+.10016263129615e-4*x-.95\
513777962868*x^2-4.7758050717099*x^3+.29093245850045e-5*x^5-2.8654872924528*x^
4-3.8206406362235*y^5+4.7757903247325*y^3-1.9103461941690*y^2+4.7758078216461*
y^4-3.8206390961052*x^2*y^3+1.9103171031517*x^2*y^2-3.8206219518953*x^2*y+.955\
16258039185*x*y^4+4.7758073969470*x*y^3+2.8654883095730*x*y^2+1.9103283783331*
x^3*y+2.8654910264132*x^3*y^2-.95513925939286*x*y-2.8654938305093*x^4*y+3.8206\
613607599];
t13n := 46.751;
berror13 := .65284886235174e-5;