In[40]:= Show[equipot,stream,PlotRange->{{3,5},{-2,2}}];
Show[equipot,stream,PlotRange->{{3,5},{-2,2}}];
Answer:
...
Up to Equipotential Curves and Streamlines
