%
%  Lineare Regression von Daten aus einer Excel-Datei, 
%    Spalte A mit t-Werten und Spalte B mit x-Werten. 
%    Erwarteter funktionaler Zusammenhang: x(t) = v * t + x0
%    Bestimmung der Werte für v und x0 und des Mittelwerts diff 
%    des Betrags der Abweichung der Messwerte von der Funktion. 
%
%    >> [v,x0,diff] = interpolExcel( 'xData.xls' )
%
function [v,x0,diff] = interpolExcel( name )  

   data = xlsread( name );
   t = data( :,1 );
   x = data( :,2 );
   
   p = polyfit( t,x,1 );      
   v  = p(1);                      
   x0 = p(2);             
   
   % Funktionswerte an t-Punkten
   xf = polyval( p, t );
   
   % Abweichung im Betrag 
   d = abs( x - xf );
   diff = mean( d );
   
   % zum Test zeichnen
   plot( t, xf, 'b-', t, x, 'rs' )
   