%Overfitting

%Alappontok meghatározása
xalap = -2:0.1:4;
%Polinom 1, -2 és 3 gyökökkel
p = poly([1 -2 3]);
%a polinom értékeihez random hiba hozzáadása
xertek = polyval(p,xalap)+rand;
%Lagrange interpoláció a zajos pontokra (ez rajzol is)
LP = lagrangeInterpolacio(xalap,xertek);
hold on;
%A pontos értékek
pontos = polyval(p,xalap);
plot(xalap,pontos,'r*');

%Közelített függvényillesztés
kozelitpolinom = polyfit(xalap,xertek,3); %Az x alappontokra x értékre meghatározza a legjobban illeszkedõ polinomot.
kozelitertek = polyval(kozelitpolinom,xalap); %értékeljük ki a polinomot
plot(xalap,kozelitertek,'g');

%Behatároljuk a látómezõt
axis([-2 4 -10 60]);
hold off;
