clear all, close all, clc
% Anpassa punkterna nedan till c1 + c2*x + c3*x^2 = y
x = [-1  0  1  2]'
y = [2  0  1  3]'
A = [ones(size(x))  x  x.^2]

c = A\y       % Lös Ac=y

% Plotta resultatet
X = [-1.4:0.2:2.4]';   % x med finare steg för att plotta
Y = c(1) + c(2)*X + c(3)*X.^2;
plot(X, Y, x, y, '*')

residualen = y - A*c
MinstaKvadradSumman = sum(residualen.^2)