% horner_schema.m ist ein eigenst"andiges Programm zur Berechnung von 
% Funktionswerten von Polynomen mit dem Horner-Schema

% Eingabe des Polynomgrades
n = input('Grad des Polynoms : ');

% Eingabe der Koeffizienten
for i= n+1:-1:1
  s = sprintf('Koeffizient a(%d) : ', i-1);
  a(i) = input(s);
end

% Eingabe des Arguments
x = input('Argument : ');

% Berechnung des Funktionswertes mit dem Horner-Schema
b = a(n+1);
for i=n:-1:1
  b = a(i) + b*x 
end

% Ausgabe des Funktionswertes
s =  sprintf('Funktionswert : %g\n',b);
disp(s)

