Geometric illlustration of the least squares

>	with(Student[LinearAlgebra]);

Warning, the name LeastSquares has been rebound

Warning, the protected name `.` has been redefined and unprotected

The command LeastSquaresPlot plots the squares whose total area is minimized by the best line.

>	LeastSquaresPlot(pairs13);

>	LeastSquaresPlot(pairs27);

There are too many points to get a nice picture. Let us reduce the dataset:

>	pairs5:=pairs27[7..-17];

>	LeastSquaresPlot(pairs5);

If we set scaling=unconstrained, the squares look like rectangles but otherwise the drawing (MAYBE - remember that my dataset is "randomized") improves:

>	display(LeastSquaresPlot(pairs5),scaling=unconstrained);

Another way of improving the drawing MAY BE to limit the view.

>	display(LeastSquaresPlot(pairs5),view=[0..16, 0..19]);

>