load bat_eta;
H=detrend(H);
subplot(2,1,1);
plot(t,H);axis([80 120 -2 2]);
str=num2str(var(H));
text(110,1.5,str);
remove_tide
subplot(2,1,2)
plot(t,H);axis([80 120 -2 2]);
str=num2str(var(H));
text(110,1.5,str);