f := 240+375*x^2*y^4-258*x^2*y^3-60*x^3*y^3+60*x*y^2+300*x^2*y^2+200*x^3*y^2+
490*x^4*y^2+120*x*y-240*x^2*y+128*x^4*y^4+40*x^4*y^3-80*x^5*y^3+160*x^5*y^2+
120*x^6*y^2+160*x^3*y-320*x^4*y+36*x^2*y^5-72*x^3*y^5+72*x*y^4+144*x^3*y^4+144
*x*y^3+320*x^2+288*y^2+18*x^2*y^6;
r_min := 0;
vec_d := Vector(9, [1/240,1/320,80/22991,22531180/8104721423,1191394049181/
90484770084871,5700540515346873/1409913578018234572,829029183874721928336/
309045199847959266240713,3708542398175511194888556/16196636485001877244354939,
48589909455005631733064817/20043043325362746556948178]);
q_list := Vector(9, [240+26*x*y^2-114/7*x^2*y^2+46*x*y-24*x^2*y+31*x^3*y+2*x*y
^3,320*x+14*y+68/7*x*y^2+76*x^2*y^2-96*x*y+49*x^2*y-160*x^3*y+5*x*y^3,22991/80
*y+2783/40*x*y^2-2573/40*x^2*y^2+41/5*x*y+3999/1120*x^2*y+2*x^3*y+1145/32*x*y^
3,8104721423/22531180*x*y^2+3219899/38780*x^2*y^2-744052543/9656220*x*y+
13879281/804685*x^2*y+174094309/19312440*x^3*y+86607559/9656220*x*y^3,
90484770084871/1191394049181*x^2*y^2-248023668923/170199149883*x*y-\
504715094021/113466099922*x^2*y-520660500937/340398299766*x^3*y-10590902628287
/340398299766*x*y^3,1409913578018234572/5700540515346873*x*y+65629067980123895
/1266786781188194*x^2*y-7215876065759977/1628725861527678*x^3*y-\
1487532334547597/1628725861527678*x*y^3,309045199847959266240713/
829029183874721928336*x^2*y+4262841971110918127267/39477580184510568016*x^3*y+
36667815464017918127/39477580184510568016*x*y^3,16196636485001877244354939/
3708542398175511194888556*x^3*y+484464299588342701863274/
927135599543877798722139*x*y^3,20043043325362746556948178/
48589909455005631733064817*x*y^3]);