r[x_]:=.8061*10^(-9)*x^4-1.3288*10^(-6)*x^3+.8121*10^(-3)*x^2-.2139x+20.79

r[630]

Solve[r[x]==3,x]