RK98[d2_,d5_,d9_,d10_,d11_,d13_,d14_,b116_,w16_,ww15_,ww16_]:=
Module[{w8,w9,w10,w11,w12,w13,w14,w15,ww8,ww9,ww10,ww11,ww12,ww13,ww14,b106,b107,b108,b109,b1110,b117,b118,b119,b1210,b1211,b126,b127,b128,b129,b1310,b1311,b1312,b136,b137,b138,b139,
b1410,b1411,b1412,b1413,b146,b147,b148,b149,b1510,b1511,b1512,b1513,b1514,b156,b157,b158,b159,b1610,b1611,b1612,b1613,b1614,b1615,b166,b167,b168,b169,b32,b43,b53,b54,b64,b65,b74,b75,
b76,b86,b87,b96,b97,b98,b,w,d,ww,d3,d4,d6,d7,d8,d12,d15,b21,b31,b41,b51,b61,b71,b81,b91,b101,b111,b121,b131,b141,b151,b161},
b={{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{b21,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{b31,b32,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
{b41,0,b43,0,0,0,0,0,0,0,0,0,0,0,0,0},
{b51,0,b53,b54,0,0,0,0,0,0,0,0,0,0,0,0},
{b61,0,0,b64,b65,0,0,0,0,0,0,0,0,0,0,0},
{b71,0,0,b74,b75,b76,0,0,0,0,0,0,0,0,0,0},
{b81,0,0,0,0,b86,b87,0,0,0,0,0,0,0,0,0},
{b91,0,0,0,0,b96,b97,b98,0,0,0,0,0,0,0,0},
{b101,0,0,0,0,b106,b107,b108,b109,0,0,0,0,0,0,0},
{b111,0,0,0,0,b116,b117,b118,b119,b1110,0,0,0,0,0,0},
{b121,0,0,0,0,b126,b127,b128,b129,b1210,b1211,0,0,0,0,0},
{b131,0,0,0,0,b136,b137,b138,b139,b1310,b1311,b1312,0,0,0,0},
{b141,0,0,0,0,b146,b147,b148,b149,b1410,b1411,b1412,b1413,0,0,0},
{b151,0,0,0,0,b156,b157,b158,b159,b1510,b1511,b1512,b1513,b1514,0,0},
{b161,0,0,0,0,b166,b167,b168,b169,b1610,b1611,b1612,b1613,b1614,b1615,0}};
d={0,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,1};
w={0,0,0,0,0,0,0,w8,w9,w10,w11,w12,w13,w14,w15,w16};ww={0,0,0,0,0,0,0,ww8,ww9,ww10,ww11,ww12,ww13,ww14,ww15,ww16};e={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1};
d15=1;b1615=0;
d7=d9*(2*Sqrt[6]/15+4/5);
d8=4*d9/3;d6=d8*(4*d7-3*d8)/(2*(3*d7-2*d8));
d4=d6*(4*d5-3*d6)/(2*(3*d5-2*d6));d3=2*d4/3;
b32=d3^2/(2*d2);b43=d4^2/(2*d3);b53=3*d5^2*(3*d4-2*d5)/(4*d4^2);b54=-d5^2*(d4-d5)/d4^2;
b64=-d6^2*(3*d5-2*d6)/(6*d4*(d4-d5));b65=d6^2*(3*d4-2*d6)/(6*d5*(d4-d5));b74=2*d7^2*(2*d5*(3*d6-2*d7)-d7*(4*d6-3*d7))*(3*d5-2*d6)^3/(3*d6^2*(6*d5^2-8*d5*d6+3*d6^2)*(4*d5-3*d6)*(2*d5-d6));
b75=d7^2*(d5*(12*d6^2-20*d6*d7+9*d7^2)-d6*(9*d6^2-14*d6*d7+6*d7^2))/(6*d5*(6*d5^2-8*d5*d6+3*d6^2)*(d5-d6));b76=-d7^2*(d6-d7)*(4*d5^2-3*d5*(d6+d7)+2*d6*d7)/(2*d6^2*(2*d5-d6)*(d5-d6));
b86=-d8^2*(3*d7-2*d8)/(6*d6*(d6-d7));b87=d8^2*(3*d6-2*d8)/(6*d7*(d6-d7));b96=d9^2*(2*d7*(3*d8-2*d9)-d9*(4*d8-3*d9))/(12*d6*(d6-d7)*(d6-d8));
b97=-d9^2*(2*d6*(3*d8-2*d9)-d9*(4*d8-3*d9))/(12*d7*(d6-d7)*(d7-d8));b98=d9^2*(2*d6*(3*d7-2*d9)-d9*(4*d7-3*d9))/(12*d8*(d6-d8)*(d7-d8));
d12=(6*d10^2*(14*d11^2*(7*d8^2*d9+d8*(7*d9^2-12*d9+1)+d9)+d11*(14*d8^2*(7*d9^2-12*d9+1)-7*d8*(24*d9^2-33*d9+4)+14*d9^2-28*d9+3)+14*d8^2*d9+d8*(14*d9^2-28*d9+3)+3*d9)+d10*(6*d11^2*(14*d8^2*(7*d9^2-12*d9+1)-7*d8*(24*d9^2-33*d9+4)+14*d9^2-28*d9+3)-2*d11*(21*d8^2*(24*d9^2-33*d9+4)-d8*(693*d9^2-896*d9+132)+4*(21*d9^2-33*d9+5))+6*d8^2*(14*d9^2-28*d9+3)-8*d8*(21*d9^2-33*d9+5)+18*d9^2-40*d9+5)+6*d11^2*(14*d8^2*d9+d8*(14*d9^2-28*d9+3)+3*d9)+d11*(6*d8^2*(14*d9^2-28*d9+3)-8*d8*(21*d9^2-33*d9+5)+18*d9^2-40*d9+5)+18*d8^2*d9+d8*(18*d9^2-40*d9+5)+5*d9)/(12*d10^2*(7*d11^2*(7*d8^2*(15*d9^2-10*d9+2)-2*d8*(35*d9^2-26*d9+6)+14*d9^2-12*d9+3)-7*d11*(2*d8^2*(35*d9^2-26*d9+6)-d8*(52*d9^2-42*d9+11)+12*d9^2-11*d9+3)+7*d8^2*(14*d9^2-12*d9+3)-7*d8*(12*d9^2-11*d9+3)+21*d9^2-21*d9+6)-4*d10*(21*d11^2*(2*d8^2*(35*d9^2-26*d9+6)-d8*(52*d9^2-42*d9+11)+12*d9^2-11*d9+3)-d11*(21*d8^2*(52*d9^2-42*d9+11)-7*d8*(126*d9^2-109*d9+32)+231*d9^2-224*d9+66)+21*d8^2*(12*d9^2-11*d9+3)-d8*(231*d9^2-224*d9+66)+63*d9^2-66*d9+20)+12*d11^2*(7*d8^2*(14*d9^2-12*d9+3)-7*d8*(12*d9^2-11*d9+3)+21*d9^2-21*d9+6)-4*d11*(21*d8^2*(12*d9^2-11*d9+3)-d8*(231*d9^2-224*d9+66)+63*d9^2-66*d9+20)+36*d8^2*(7*d9^2-7*d9+2)-4*d8*(63*d9^2-66*d9+20)+72*d9^2-80*d9+25);
w15=-(2520*w16*(d9-1)*(d8-1)*(d14-1)*(d13-1)*(d12-1)*(d11-1)*(d10-1)-3*d10*(2*d11*(7*d12*(d13*(5*d14*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d14*(3*(5*d9-4)-5*d8*(4*d9-3))+3*d8*(5*d9-4)-2*(6*d9-5))-7*d13*(d14*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))+7*d14*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))-2*d12*(7*d13*(d14*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))-7*d14*(3*d8*(5*d9-4)-2*(6*d9-5))+2*(7*d8*(6*d9-5)-5*(7*d9-6)))+2*d13*(7*d14*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))-4*d14*(7*d8*(6*d9-5)-5*(7*d9-6))+5*(4*d8*(7*d9-6)-3*(8*d9-7)))+3*d11*(2*d12*(7*d13*(d14*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))-7*d14*(3*d8*(5*d9-4)-2*(6*d9-5))+2*(7*d8*(6*d9-5)-5*(7*d9-6)))-2*d13*(7*d14*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))+4*d14*(7*d8*(6*d9-5)-5*(7*d9-6))-5*(4*d8*(7*d9-6)-3*(8*d9-7)))-3*d12*(2*d13*(7*d14*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))-4*d14*(7*d8*(6*d9-5)-5*(7*d9-6))+5*(4*d8*(7*d9-6)-3*(8*d9-7)))+3*d13*(4*d14*(7*d8*(6*d9-5)-5*(7*d9-6))-5*(4*d8*(7*d9-6)-3*(8*d9-7)))-5*(3*d14*(4*d8*(7*d9-6)-3*(8*d9-7))-9*d8*(8*d9-7)+7*(9*d9-8)))/(2520*(d10-1)*(d11-1)*(d12-1)*(d13-1)*(d14-1)*(d8-1)*(d9-1));
w14=-(840*w15*(d9-1)*(d8-1)*(d13-1)*(d12-1)*(d11-1)*(d10-1)+840*w16*(d9-1)*(d8-1)*(d13-1)*(d12-1)*(d11-1)*(d10-1)-2*d10*(7*d11*(d12*(5*d13*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d13*(3*(5*d9-4)-5*d8*(4*d9-3))+3*d8*(5*d9-4)-2*(6*d9-5))-7*d12*(d13*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))+7*d13*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))+2*d11*(7*d12*(d13*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))-7*d13*(3*d8*(5*d9-4)-2*(6*d9-5))+2*(7*d8*(6*d9-5)-5*(7*d9-6)))-2*d12*(7*d13*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))+4*d13*(7*d8*(6*d9-5)-5*(7*d9-6))-5*(4*d8*(7*d9-6)-3*(8*d9-7)))/(840*d14*(d10-d14)*(d11-d14)*(d12-d14)*(d13-d14)*(d14-d8)*(d14-d9));
w13=-(420*w14*d14*(d14^2-d14*(d8+d9)+d8*d9)*(d12-d14)*(d11-d14)*(d10-d14)+420*w15*(d9-1)*(d8-1)*(d12-1)*(d11-1)*(d10-1)+420*w16*(d9-1)*(d8-1)*(d12-1)*(d11-1)*(d10-1)-7*d10*(d11*(5*d12*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d12*(3*(5*d9-4)-5*d8*(4*d9-3))+3*d8*(5*d9-4)-2*(6*d9-5))+7*d11*(d12*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))-7*d12*(3*d8*(5*d9-4)-2*(6*d9-5))+2*(7*d8*(6*d9-5)-5*(7*d9-6)))/(420*d13*(d10-d13)*(d11-d13)*(d12-d13)*(d13-d8)*(d13-d9));
w12=-(60*w13*d13*(d13^2-d13*(d8+d9)+d8*d9)*(d11-d13)*(d10-d13)+60*w14*d14*(d14^2-d14*(d8+d9)+d8*d9)*(d11-d14)*(d10-d14)+60*w15*(d9-1)*(d8-1)*(d11-1)*(d10-1)+60*w16*(d9-1)*(d8-1)*(d11-1)*(d10-1)-d10*(5*d11*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d11*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))/(60*d12*(d10-d12)*(d11-d12)*(d12-d8)*(d12-d9));
w11=-(60*w12*d12*(d12^2-d12*(d8+d9)+d8*d9)*(d10-d12)+60*w13*d13*(d13^2-d13*(d8+d9)+d8*d9)*(d10-d13)+60*w14*d14*(d14^2-d14*(d8+d9)+d8*d9)*(d10-d14)+60*w15*(d9-1)*(d8-1)*(d10-1)+60*w16*(d9-1)*(d8-1)*(d10-1)-5*d10*(2*d8*(3*d9-2)-4*d9+3)+5*d8*(4*d9-3)-3*(5*d9-4))/(60*d11*(d10-d11)*(d11-d8)*(d11-d9));
w10=-(12*w11*d11*(d11^2-d11*(d8+d9)+d8*d9)+12*w12*d12*(d12^2-d12*(d8+d9)+d8*d9)+12*w13*d13*(d13^2-d13*(d8+d9)+d8*d9)+12*w14*d14*(d14^2-d14*(d8+d9)+d8*d9)+12*w15*(d9-1)*(d8-1)+12*w16*(d9-1)*(d8-1)-2*d8*(3*d9-2)+4*d9-3)/(12*d10*(d10-d8)*(d10-d9));
w9=(6*w10*d10*(d10-d8)+6*w11*d11*(d11-d8)+6*w12*d12*(d12-d8)+6*w13*d13*(d13-d8)+6*w14*d14*(d14-d8)-6*w15*(d8-1)-6*w16*(d8-1)+3*d8-2)/(6*d9*(d8-d9));
w8=-(2*w10*d10+2*w11*d11+2*w12*d12+2*w13*d13+2*w14*d14+2*w15+2*w16+2*w9*d9-1)/(2*d8);
ww14=-(840*ww15*(d9-1)*(d8-1)*(d13-1)*(d12-1)*(d11-1)*(d10-1)+840*ww16*(d9-1)*(d8-1)*(d13-1)*(d12-1)*(d11-1)*(d10-1)-2*d10*(7*d11*(d12*(5*d13*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d13*(3*(5*d9-4)-5*d8*(4*d9-3))+3*d8*(5*d9-4)-2*(6*d9-5))-7*d12*(d13*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))+7*d13*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))+2*d11*(7*d12*(d13*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))-7*d13*(3*d8*(5*d9-4)-2*(6*d9-5))+2*(7*d8*(6*d9-5)-5*(7*d9-6)))-2*d12*(7*d13*(3*d8*(5*d9-4)-2*(6*d9-5))-2*(7*d8*(6*d9-5)-5*(7*d9-6)))+4*d13*(7*d8*(6*d9-5)-5*(7*d9-6))-5*(4*d8*(7*d9-6)-3*(8*d9-7)))/(840*d14*(d10-d14)*(d11-d14)*(d12-d14)*(d13-d14)*(d14-d8)*(d14-d9));
ww13=-(420*ww14*d14*(d14^2-d14*(d8+d9)+d8*d9)*(d12-d14)*(d11-d14)*(d10-d14)+420*ww15*(d9-1)*(d8-1)*(d12-1)*(d11-1)*(d10-1)+420*ww16*(d9-1)*(d8-1)*(d12-1)*(d11-1)*(d10-1)-7*d10*(d11*(5*d12*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d12*(3*(5*d9-4)-5*d8*(4*d9-3))+3*d8*(5*d9-4)-2*(6*d9-5))+7*d11*(d12*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))-7*d12*(3*d8*(5*d9-4)-2*(6*d9-5))+2*(7*d8*(6*d9-5)-5*(7*d9-6)))/(420*d13*(d10-d13)*(d11-d13)*(d12-d13)*(d13-d8)*(d13-d9));
ww12=-(60*ww13*d13*(d13^2-d13*(d8+d9)+d8*d9)*(d11-d13)*(d10-d13)+60*ww14*d14*(d14^2-d14*(d8+d9)+d8*d9)*(d11-d14)*(d10-d14)+60*ww15*(d9-1)*(d8-1)*(d11-1)*(d10-1)+60*ww16*(d9-1)*(d8-1)*(d11-1)*(d10-1)-d10*(5*d11*(2*d8*(3*d9-2)-4*d9+3)-5*d8*(4*d9-3)+3*(5*d9-4))+d11*(5*d8*(4*d9-3)-3*(5*d9-4))-3*d8*(5*d9-4)+2*(6*d9-5))/(60*d12*(d10-d12)*(d11-d12)*(d12-d8)*(d12-d9));
ww11=-(60*ww12*d12*(d12^2-d12*(d8+d9)+d8*d9)*(d10-d12)+60*ww13*d13*(d13^2-d13*(d8+d9)+d8*d9)*(d10-d13)+60*ww14*d14*(d14^2-d14*(d8+d9)+d8*d9)*(d10-d14)+60*ww15*(d9-1)*(d8-1)*(d10-1)+60*ww16*(d9-1)*(d8-1)*(d10-1)-5*d10*(2*d8*(3*d9-2)-4*d9+3)+5*d8*(4*d9-3)-3*(5*d9-4))/(60*d11*(d10-d11)*(d11-d8)*(d11-d9));
ww10=-(12*ww11*d11*(d11^2-d11*(d8+d9)+d8*d9)+12*ww12*d12*(d12^2-d12*(d8+d9)+d8*d9)+12*ww13*d13*(d13^2-d13*(d8+d9)+d8*d9)+12*ww14*d14*(d14^2-d14*(d8+d9)+d8*d9)+12*ww15*(d9-1)*(d8-1)+12*ww16*(d9-1)*(d8-1)-2*d8*(3*d9-2)+4*d9-3)/(12*d10*(d10-d8)*(d10-d9));
ww9=(6*ww10*d10*(d10-d8)+6*ww11*d11*(d11-d8)+6*ww12*d12*(d12-d8)+6*ww13*d13*(d13-d8)+6*ww14*d14*(d14-d8)-6*ww15*(d8-1)-6*ww16*(d8-1)+3*d8-2)/(6*d9*(d8-d9));
ww8=-(2*ww10*d10+2*ww11*d11+2*ww12*d12+2*ww13*d13+2*ww14*d14+2*ww15+2*ww16+2*ww9*d9-1)/(2*d8);
b1413=-(3*d10*(2*d11*(7*d12*(d8*(5*d9-2)-2*d9+1)-7*d8*(2*d9-1)+7*d9-4)-2*d12*(7*d8*(2*d9-1)-7*d9+4)+2*d8*(7*d9-4)-8*d9+5)-3*d11*(2*d12*(7*d8*(2*d9-1)-7*d9+4)-2*d8*(7*d9-4)+8*d9-5)+3*d12*(2*d8*(7*d9-4)-8*d9+5)-3*d8*(8*d9-5)+5*(3*d9-2))/(5040*w14*d13*(d10-d13)*(d11-d13)*(d12-d13)*(d13-d8)*(d13-d9)*(d14-1));
b1412=-(3*d10*(2*d11*(d12*(21*d14*(d8*(5*d9-2)-2*d9+1)-7*d8*(9*d9-4)+28*d9-15)-21*d13^2*(d8*(5*d9-2)-2*d9+1)+d13*(7*d8*(15*d9-7)-49*d9+27)-3*d14*(7*d8*(2*d9-1)-7*d9+4))-2*d12*(3*d14*(7*d8*(2*d9-1)-7*d9+4)+d8*(15-28*d9)+3*(5*d9-3))+6*d13^2*(7*d8*(2*d9-1)-7*d9+4)+d13*(3*(18*d9-11)-2*d8*(49*d9-27))+3*d14*(2*d8*(7*d9-4)-8*d9+5))-3*d11*(2*d12*(3*d14*(7*d8*(2*d9-1)-7*d9+4)+d8*(15-28*d9)+3*(5*d9-3))-6*d13^2*(7*d8*(2*d9-1)-7*d9+4)+d13*(2*d8*(49*d9-27)-3*(18*d9-11))-3*d14*(2*d8*(7*d9-4)-8*d9+5))+d12*(9*d14*(2*d8*(7*d9-4)-8*d9+5)-18*d8*(5*d9-3)+54*d9-35)-9*d13^2*(2*d8*(7*d9-4)-8*d9+5)+d13*(9*d8*(18*d9-11)-99*d9+65)-3*d14*(3*d8*(8*d9-5)-5*(3*d9-2)))/(15120*w14*d12*(d10-d12)*(d11-d12)*(d12-d13)*(d12-d8)*(d12-d9)*(d13-d14)*(d14-1));
b1312=(6*d10*(d11*(21*d14*(d8*(5*d9-2)-2*d9+1)-7*d8*(9*d9-4)+28*d9-15)-3*d14*(7*d8*(2*d9-1)-7*d9+4)+d8*(28*d9-15)-3*(5*d9-3))-6*d11*(3*d14*(7*d8*(2*d9-1)-7*d9+4)+d8*(15-28*d9)+3*(5*d9-3))+9*d14*(2*d8*(7*d9-4)-8*d9+5)-18*d8*(5*d9-3)+54*d9-35)/(15120*w13*d12*(d10-d12)*(d11-d12)*(d12-d8)*(d12-d9)*(d13-1)*(d13-d14));
b106=d10^2*(12*d10^3-15*d10^2*(d7+d8+d9)+20*d10*(d7*(d8+d9)+d8*d9)-30*d7*d8*d9)/(60*d6*(d6-d7)*(d6-d8)*(d6-d9));
b107=-d10^2*(12*d10^3-15*d10^2*(d6+d8+d9)+20*d10*(d6*(d8+d9)+d8*d9)-30*d6*d8*d9)/(60*d7*(d6-d7)*(d7-d8)*(d7-d9));
b108=d10^2*(12*d10^3-15*d10^2*(d6+d7+d9)+20*d10*(d6*(d7+d9)+d7*d9)-30*d6*d7*d9)/(60*d8*(d6-d8)*(d7-d8)*(d8-d9));
b109=-d10^2*(12*d10^3-15*d10^2*(d6+d7+d8)+20*d10*(d6*(d7+d8)+d7*d8)-30*d6*d7*d8)/(60*d9*(d6-d9)*(d7-d9)*(d8-d9));
b117=-(60*b116*d6*(d6-d9)*(d6-d8)*(d10-d6)-d11^2*(5*d10*(3*d11^2-4*d11*(d8+d9)+6*d8*d9)-d11*(12*d11^2-15*d11*(d8+d9)+20*d8*d9)))/(60*d7*(d10-d7)*(d7-d8)*(d7-d9));
b118=(60*b116*d6*(d6-d9)*(d6-d7)*(d10-d6)-d11^2*(5*d10*(3*d11^2-4*d11*(d7+d9)+6*d7*d9)-d11*(12*d11^2-15*d11*(d7+d9)+20*d7*d9)))/(60*d8*(d10-d8)*(d7-d8)*(d8-d9));
b119=-(60*b116*d6*(d6^2-d6*(d7+d8)+d7*d8)*(d10-d6)-d11^2*(5*d10*(3*d11^2-4*d11*(d7+d8)+6*d7*d8)-d11*(12*d11^2-15*d11*(d7+d8)+20*d7*d8)))/(60*d9*(d10-d9)*(d7-d9)*(d8-d9));
b1110=-(60*b116*d6*(d6^3-d6^2*(d7+d8+d9)+d6*(d7*(d8+d9)+d8*d9)-d7*d8*d9)-d11^2*(12*d11^3-15*d11^2*(d7+d8+d9)+20*d11*(d7*(d8+d9)+d8*d9)-30*d7*d8*d9))/(60*d10*(d10-d7)*(d10-d8)*(d10-d9));
b146=-(b106*(d10-1)*(w10*(w12*ww13*(d10-d12)+w13*ww12*(d13-d10))+w12*w13*ww10*(d12-d13))+b116*(d11-1)*(w11*(w12*ww13*(d11-d12)+w13*ww12*(d13-d11))+w12*w13*ww11*(d12-d13))+b86*(d8-1)*(w12*(w13*ww8*(d12-d13)+w8*ww13*(d8-d12))+w13*w8*ww12*(d13-d8))+b96*(d9-1)*(w12*(w13*ww9*(d12-d13)+w9*ww13*(d9-d12))+w13*w9*ww12*(d13-d9)))/((w12*(w13*ww14*(d12-d13)+w14*ww13*(d14-d12))+w13*w14*ww12*(d13-d14))*(d14-1));
b136=(b106*w10*(d10^2-d10*(d12+1)+d12)+b116*w11*(d11^2-d11*(d12+1)+d12)+b146*w14*(1-d14)*(d12-d14)+b86*w8*(1-d8)*(d12-d8)+b96*w9*(1-d9)*(d12-d9))/(w13*(d12-d13)*(d13-1));
b126=-(b106*w10*(d10-1)+b116*w11*(d11-1)+b136*w13*(d13-1)+b146*w14*(d14-1)+b86*w8*(d8-1)+b96*w9*(d9-1))/(w12*(d12-1));
b147=-(b107*(d10-1)*(w10*(w12*ww13*(d10-d12)+w13*ww12*(d13-d10))+w12*w13*ww10*(d12-d13))+b117*(d11-1)*(w11*(w12*ww13*(d11-d12)+w13*ww12*(d13-d11))+w12*w13*ww11*(d12-d13))+b87*(d8-1)*(w12*(w13*ww8*(d12-d13)+w8*ww13*(d8-d12))+w13*w8*ww12*(d13-d8))+b97*(d9-1)*(w12*(w13*ww9*(d12-d13)+w9*ww13*(d9-d12))+w13*w9*ww12*(d13-d9)))/((w12*(w13*ww14*(d12-d13)+w14*ww13*(d14-d12))+w13*w14*ww12*(d13-d14))*(d14-1));
b137=(b107*w10*(d10^2-d10*(d12+1)+d12)+b117*w11*(d11^2-d11*(d12+1)+d12)+b147*w14*(1-d14)*(d12-d14)+b87*w8*(1-d8)*(d12-d8)+b97*w9*(1-d9)*(d12-d9))/(w13*(d12-d13)*(d13-1));
b127=-(b107*w10*(d10-1)+b117*w11*(d11-1)+b137*w13*(d13-1)+b147*w14*(d14-1)+b87*w8*(d8-1)+b97*w9*(d9-1))/(w12*(d12-1));
b1211=-(60*b126*d6*(d6^2-d6*(d8+d9)+d8*d9)*(d10-d6)+60*b127*d7*(d7^2-d7*(d8+d9)+d8*d9)*(d10-d7)-d12^2*(5*d10*(3*d12^2-4*d12*(d8+d9)+6*d8*d9)-d12*(12*d12^2-15*d12*(d8+d9)+20*d8*d9)))/(60*d11*(d10-d11)*(d11-d8)*(d11-d9));
b1210=-(12*b1211*d11*(d11^2-d11*(d8+d9)+d8*d9)+12*b126*d6*(d6^2-d6*(d8+d9)+d8*d9)+12*b127*d7*(d7^2-d7*(d8+d9)+d8*d9)-d12^2*(3*d12^2-4*d12*(d8+d9)+6*d8*d9))/(12*d10*(d10-d8)*(d10-d9));
b129=(6*b1210*d10*(d10-d8)+6*b1211*d11*(d11-d8)+6*b126*d6*(d6-d8)+6*b127*d7*(d7-d8)-d12^2*(2*d12-3*d8))/(6*d9*(d8-d9));
b128=-(2*b1210*d10+2*b1211*d11+2*b126*d6+2*b127*d7+2*b129*d9-d12^2)/(2*d8);
b1311=-(60*b1312*d12*(d12^2-d12*(d8+d9)+d8*d9)*(d10-d12)+60*b136*d6*(d6^2-d6*(d8+d9)+d8*d9)*(d10-d6)+60*b137*d7*(d7^2-d7*(d8+d9)+d8*d9)*(d10-d7)-d13^2*(5*d10*(3*d13^2-4*d13*(d8+d9)+6*d8*d9)-d13*(12*d13^2-15*d13*(d8+d9)+20*d8*d9)))/(60*d11*(d10-d11)*(d11-d8)*(d11-d9));
b1310=-(12*b1311*d11*(d11^2-d11*(d8+d9)+d8*d9)+12*b1312*d12*(d12^2-d12*(d8+d9)+d8*d9)+12*b136*d6*(d6^2-d6*(d8+d9)+d8*d9)+12*b137*d7*(d7^2-d7*(d8+d9)+d8*d9)-d13^2*(3*d13^2-4*d13*(d8+d9)+6*d8*d9))/(12*d10*(d10-d8)*(d10-d9));
b139=(6*b1310*d10*(d10-d8)+6*b1311*d11*(d11-d8)+6*b1312*d12*(d12-d8)+6*b136*d6*(d6-d8)+6*b137*d7*(d7-d8)-d13^2*(2*d13-3*d8))/(6*d9*(d8-d9));
b138=-(2*b1310*d10+2*b1311*d11+2*b1312*d12+2*b136*d6+2*b137*d7+2*b139*d9-d13^2)/(2*d8);
b1411=-(60*b1412*d12*(d12^2-d12*(d8+d9)+d8*d9)*(d10-d12)+60*b1413*d13*(d13^2-d13*(d8+d9)+d8*d9)*(d10-d13)+60*b146*d6*(d6^2-d6*(d8+d9)+d8*d9)*(d10-d6)+60*b147*d7*(d7^2-d7*(d8+d9)+d8*d9)*(d10-d7)-d14^2*(5*d10*(3*d14^2-4*d14*(d8+d9)+6*d8*d9)-d14*(12*d14^2-15*d14*(d8+d9)+20*d8*d9)))/(60*d11*(d10-d11)*(d11-d8)*(d11-d9));
b1410=-(12*b1411*d11*(d11^2-d11*(d8+d9)+d8*d9)+12*b1412*d12*(d12^2-d12*(d8+d9)+d8*d9)+12*b1413*d13*(d13^2-d13*(d8+d9)+d8*d9)+12*b146*d6*(d6^2-d6*(d8+d9)+d8*d9)+12*b147*d7*(d7^2-d7*(d8+d9)+d8*d9)-d14^2*(3*d14^2-4*d14*(d8+d9)+6*d8*d9))/(12*d10*(d10-d8)*(d10-d9));
b149=(6*b1410*d10*(d10-d8)+6*b1411*d11*(d11-d8)+6*b1412*d12*(d12-d8)+6*b1413*d13*(d13-d8)+6*b146*d6*(d6-d8)+6*b147*d7*(d7-d8)-d14^2*(2*d14-3*d8))/(6*d9*(d8-d9));
b148=-(2*b1410*d10+2*b1411*d11+2*b1412*d12+2*b1413*d13+2*b146*d6+2*b147*d7+2*b149*d9-d14^2)/(2*d8);
b1514=(1-d14)*(w14*ww16-w16*ww14)/(w15*ww16-w16*ww15);b1614=-(b1514*w15+w14*(d14-1))/w16;
b1513=-(b1413*(w14*ww16-w16*ww14)+(d13-1)*(w13*ww16-w16*ww13))/(w15*ww16-w16*ww15);
b1613=-(b1413*w14+b1513*w15+w13*(d13-1))/w16;b1512=-(b1312*(w13*ww16-w16*ww13)+b1412*(w14*ww16-w16*ww14)+(d12-1)*(w12*ww16-w16*ww12))/(w15*ww16-w16*ww15);
b1612=-(b1312*w13+b1412*w14+b1512*w15+w12*(d12-1))/w16;
b1511=-(b1211*(w12*ww16-w16*ww12)+b1311*(w13*ww16-w16*ww13)+b1411*(w14*ww16-w16*ww14)+(d11-1)*(w11*ww16-w16*ww11))/(w15*ww16-w16*ww15);
b1611=-(b1211*w12+b1311*w13+b1411*w14+b1511*w15+w11*(d11-1))/w16;
b1510=-(b1110*(w11*ww16-w16*ww11)+b1210*(w12*ww16-w16*ww12)+b1310*(w13*ww16-w16*ww13)+b1410*(w14*ww16-w16*ww14)+(d10-1)*(w10*ww16-w16*ww10))/(w15*ww16-w16*ww15);
b1610=-(b1110*w11+b1210*w12+b1310*w13+b1410*w14+b1510*w15+w10*(d10-1))/w16;
b159=-(b109*(w10*ww16-w16*ww10)+b119*(w11*ww16-w16*ww11)+b129*(w12*ww16-w16*ww12)+b139*(w13*ww16-w16*ww13)+b149*(w14*ww16-w16*ww14)+(1-d9)*(w16*ww9-w9*ww16))/(w15*ww16-w16*ww15);
b169=-(b109*w10+b119*w11+b129*w12+b139*w13+b149*w14+b159*w15+w9*(d9-1))/w16;
b158=-(b108*(w10*ww16-w16*ww10)+b118*(w11*ww16-w16*ww11)+b128*(w12*ww16-w16*ww12)+b138*(w13*ww16-w16*ww13)+b148*(w14*ww16-w16*ww14)+b98*(w9*ww16-w16*ww9)+(1-d8)*(w16*ww8-w8*ww16))/(w15*ww16-w16*ww15);
b168=-(b108*w10+b118*w11+b128*w12+b138*w13+b148*w14+b158*w15+b98*w9+w8*(d8-1))/w16;
b157=-(b107*(w10*ww16-w16*ww10)+b117*(w11*ww16-w16*ww11)+b127*(w12*ww16-w16*ww12)+b137*(w13*ww16-w16*ww13)+b147*(w14*ww16-w16*ww14)+b87*(w8*ww16-w16*ww8)+b97*(w9*ww16-w16*ww9))/(w15*ww16-w16*ww15);
b167=(b107*(w10*ww15-w15*ww10)+b117*(w11*ww15-w15*ww11)+b127*(w12*ww15-w15*ww12)+b137*(w13*ww15-w15*ww13)+b147*(w14*ww15-w15*ww14)+b87*(w8*ww15-w15*ww8)+b97*(w9*ww15-w15*ww9))/(w15*ww16-w16*ww15);
b156=-(b106*(w10*ww16-w16*ww10)+b116*(w11*ww16-w16*ww11)+b126*(w12*ww16-w16*ww12)+b136*(w13*ww16-w16*ww13)+b146*(w14*ww16-w16*ww14)+b86*(w8*ww16-w16*ww8)+b96*(w9*ww16-w16*ww9))/(w15*ww16-w16*ww15);
b166=(b106*(w10*ww15-w15*ww10)+b116*(w11*ww15-w15*ww11)+b126*(w12*ww15-w15*ww12)+b136*(w13*ww15-w15*ww13)+b146*(w14*ww15-w15*ww14)+b86*(w8*ww15-w15*ww8)+b96*(w9*ww15-w15*ww9))/(w15*ww16-w16*ww15);
{b21,b31,b41,b51,b61,b71,b81,b91,b101,b111,b121,b131,b141,b151,b161}={d2,-b32+d3,-b43+d4,-b53-b54+d5,-b64-b65+d6,-b74-b75-b76+d7,-b86-b87+d8,-b96-b97-b98+d9,-b106-b107-b108-b109+d10,-b1110-b116-b117-b118-b119+d11,-b1210-b1211-b126-b127-b128-b129+d12,-b1310-b1311-b1312-b136-b137-b138-b139+d13,-b1410-b1411-b1412-b1413-b146-b147-b148-b149+d14,-b1510-b1511-b1512-b1513-b1514-b156-b157-b158-b159+d15,1-b1610-b1611-b1612-b1613-b1614-b1615-b166-b167-b168-b169};
Return[{w,ww,d,a}]