facF18 := [Complex(.469395387882713748e-1,-.130704377524740178)*x^3*y^3-
Complex(.350230831916492735,.519966729929567662e-1)*y^5+Complex(-.420640153848\
942489,.144059975055580935)*x^6-Complex(.787077708248161424e-1,.39717044726403\
0890)*y^6+Complex(.144059988384941884,.420640131556934971)*y^4+Complex(.326761\
080159508944,.117348893409153430)*x^2+Complex(-.505709295645071206e-2,.2195264\
31788576892)*y^2+Complex(-.159231291395071250,.237939123794008944)*x^3-
Complex(.214469309464756563,.224583514937732682)*y^3-Complex(.\
368252773809015708e-1,.308348425368749180)*x^4+Complex(.519966145269464068e-1,
-.350230832222232946)*x-Complex(.125647303030223146,.266465990213861914)*y-
Complex(.279821523568309858,.248053276687465158)*x*y^2-Complex(.30329127803212\
7132,.182701128088837900)*x^2*y-Complex(.102177545792989780,.33181815656791580\
1)*x^5+Complex(-.159231292045062034,.237939046089604478)*x^3*y+Complex(.125647\
358185993402,.266465940137408208)*x*y+Complex(.25635171675474,.31340552302816)
+Complex(.144059972065780195,.420640168483816745)*x*y^5+Complex(.2664659807766\
42796,-.125647335200727766)*x^2*y^4-Complex(.303291250712631521,.1827010855703\
66129)*x^4*y^2-Complex(.172586844745349716,.135761515162135082)*x^5*y+Complex(
.418823751025345290e-1,.888219293904295438e-1)*x*y^4-Complex(.1256473740243979\
62,.266465939677700492)*x^2*y^3+Complex(-.135761570241086038,.1725868825883113\
13)*x^3*y^2+Complex(.350230820618564254,.519966883671796194e-1)*x^4*y+Complex(
.787078033931488674e-1,.397170388095557102)*x*y^3+Complex(.232882011306929537,
.378757707039304114)*x^2*y^2, Complex(.123690743969185682,-.350089187320011486
)*x^4*y^2+Complex(.180235764138658820e-1,.305648863021791562)*y^6+Complex(.252\
815208467273067,.309845452846816304)*y^5+Complex(.420946332529453904,.10147054\
0569075785)*x^6+Complex(-.261208443078913555,.159737906244904388)*x^5+Complex(
.305648814453594208,-.180235566879503630e-1)*y^4+Complex(.930773636634220636e-\
1,.486370230092107586e-1)*y^3+Complex(.376505964079812904,-.402437577872383906\
e-1)*x^4+Complex(.216768044570550238,-.301452199087595241)*x+Complex(-.3765059\
94561118662,.402437418466625036e-1)*y+Complex(.301452224426510540,.21676808941\
1422644)*y^2+Complex(-.168131125044621798,.208374868531496476)*x^3+Complex(.\
419664106856343106e-2,-.234791690555521544)*x*y^5+Complex(-.419668094371145310\
e-2,.234791678897177392)*x^2*y^4+Complex(.972739726781377406e-1,-.186154743459\
570614)*x^3*y^3+Complex(.306134095266880000e-1,-.398726182613098890)*x^5*y+
Complex(.115297520953722088,.119494152603272146)*x*y^4+Complex(-.3320657024447\
68018,.181958021044722862)*x^2*y^3+Complex(.372309404119537169,.19454789369629\
7020)*x^3*y^2+Complex(-.190351271964930097,.137517658644133956)*x^4*y+Complex(
.279231919408803596,.145910978720813906)*x*y^3+Complex(-.750536987571723685e-1
,.257011763586021902)*x^2*y^2-Complex(.222201395456178702e-1,.\
708571606085900002e-1)*x*y+Complex(-.212571509117413349,.666605175584494976e-1
)*x^3*y+Complex(-.66660561451786e-1,-.21257143106245)+Complex(-.28342870604640\
4133,.888807047007673380e-1)*x*y^2+Complex(-.305648867345790886,.\
180235982804291157e-1)*x^2+Complex(-.306133948942420922e-1,.398726220839353996
)*x^2*y];
t18 := 31.829;
berror18 := .29560860772013e-6;