已知函数f(x)=ax^3+3x^2-x+1在R上是减函数,求实数a的取值范围.