Elliptic Curves

EF[x_,y_,i_]:=y^2+(i-5)*x*y+(i-1)*y -(x^3+(i+5)*x^2+(i+1)*x+(i+3));
Show[Table[ContourPlot[EF[x,y,i]==0,{x,-15,15},{y,-35,35},
ContourStyle->Hue[i/9]],{i,Range[0,8,1]}],
  ImageSize->Large,GridLines->Automatic,
PlotLabel->"Elliptic Curves"]