Scaling axis on Mathematica's plots

Question

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.

Answer 1

Try using Aspect Ratio,

 Plot[{-2*Sqrt[1 - x^2], 2*Sqrt[1 - x^2], 2*x - 2*Sqrt[2]}, {x, -2, 2},
   PlotStyle -> {Blue, Blue, Red}, AspectRatio -> Automatic]