function t3=flasktid(t,h);
% Funktion som beräknar tidpunkten för h=3 med linjär IP.

i=1;
while h(i)>3; i=i+1; end;

ij=(i-1):i;

k=(h(i-1)-h(i))/(t(i-1)-t(i));

t3=t(i)+(3-h(i))/k;

%plot(t,h,'o',t(ij),h(ij),t3,3,'*');  % Användes vid ostörda värdet!