clear 
%%% To programma auto upologizei tous suntelestes enos poluwnumou
%%% p(x)=ax^2+bx+c gia to opoio isxuei p(1)=4, p(5)=-6,кбй p(7)=-5.
% Exoume to grammiko sustima twn exiswsewn a*1^2+b*1+c=4, a*5^2+b*5+c=-6,
% a*7^2+b*7+c=-5
% a' tropos Grammiko sustima Ax=b, epilusi x=A\b;
A=[1^2 1 1;5^2 5 1;(7)^2 7 1];
b=[4;-6;-5];
s=A\b;
%b' tropos Grammiko sustima xA=b epilusi x=b/A;
A=[1^2 1 1;5^2 5 1;(7)^2 7 1]';
b=[4;-6;-5]';
s=b/A;
disp(['O suntelestis tou deuterovathmiou orou einai: ',num2str(s(1))])
disp(['O suntelestis tou prwtovathmiou orou einai: ',num2str(s(2))])
disp(['O statheros oros einai: ',num2str(s(3))])