Manipulate[Bx/(x^3 + R*x + P), {B,10000,20000}, {R,98,98}, {P,500,500}