function [t,x] = pval( p, anfang, ende, n )
  t = linspace( anfang, ende, n );   % Berechnung der t-Werte
  len = length( p );                 % Zahl der Koeffizienten
  x = 0;                             % Vorlegung der x-Werte
  for( n=1:len )                     % Koeffizienten abarbeiten
    x = x + p(n)*t.^(len-n);         % Terme aufsummieren
  end
end
