c=1;
e=1.5
ContourPlot[{Sqrt[(x^2+y^2)]==e*Abs[x-c],x==c},{x,-4,10},{y,-4,4}]