StreamDensityPlot[{Cos[x^2+y],1+x-y^2},{x,-3,3},{y,-3,3},ColorFunction->"RedBlueTones",StreamStyle->Black,StreamPoints->Medium,ImageSize->Medium]