VectorPlot[{Cos[x^2 + y], 1 + x - y^2}, {x, -2, 2}, {y, -2, 2}, VectorColorFunction -> "RedBlueTones", VectorScale -> {0.05, Automatic, None}]