clear
%lähteandmed
x=1:7;
y=[0 8 5 6 2 4 3];
plot(x,y,'r*')
hold on
grid on
%lineaarsplain
fplot(@(x)8*x-8,[1,2])
fplot(@(x)-3*x+14,[2,3])
fplot(@(x)x+2,[3,4])
fplot(@(x)-4*x+22,[4,5])
fplot(@(x)2*x-8,[5,6])
fplot(@(x)-x+10,[6,7])
%ruutsplaini kordajate (a, b, c) leidmiseks on vaja lahendada
%võrrandisüsteemid
A=[1 1 1
    4 2 1
    9 3 1];
b=[0
    8
    5];
kordajad=inv(A)*b
fplot(@(x)-5.5*x^2+24.5*x-19,[1,3])
fplot(@(x)-2.5*x^2+18.5*x-28,[3,5])
fplot(@(x)-1.5*x^2+18.5*x-53,[5,7])
hold off
legend('algandmed', 'lineaarsplain','ruutsplain')

