VectorPlot[{Cos[x^2 + y], 1 + x - y^2}, {x, -3, 3}, {y, -3, 3}, VectorColorFunction -> "Rainbow", VectorPoints -> RandomReal[{-3, 3}, {300, 2}], VectorScale -> {Small, Automatic, None}]