%algandmed
t=0:0.4:3.6;
x=[3.1 3.8 4.9 6.5 8.4 9.9 11 11.5 11.7 11.8];

%võrk
tvork=0:1e-3:3.6;

%lähendamine
%1) ruutfunktsiooniga
kordajad=polyfit(t,x,2);
xruut=polyval(kordajad,tvork);

%2) kuupfunktsiooni ehk kuupsplainiga
xkuup=interp1(t,x,tvork,'spline');

%joonis
plot(t,x,'k*',tvork,xruut,tvork,xkuup)
legend('algandmed','ruutfunktsioon','kuupfunktsioon')

%arvutamine
%1) t=1,8 s
x1(1)=polyval(kordajad,1.8);
x1(2)=interp1(t,x,1.8,'spline');
vastus1=x1

%2) t=3.5 s
x2(1)=polyval(kordajad,3.5);
x2(2)=interp1(t,x,3.5,'spline');
vastus1=x2