I'm trying to get the plot below only I want the ratio y:x to be 1:1 instead of 2:1. I want the ellipse to look tall and slim instead of short and fat.
Here's the code line if you want to copy and paste.
Plot[{-2*Sqrt[1-x^2],2*Sqrt[1-x^2],2*x-2*Sqrt[2]}, {x,-2,2}, PlotStyle->{Blue, Blue, Red}]
What I want as an answer is the code to generate the plot as I decribed above.