%               calsort.m
%                     misc manipulation with calibration data

	j=0;
for i=1:10:360;
	i
	j=j+1;
     a=find( (h1>=i)&(h1<i+5));
     if length(a)>1
        th(j)=mean(t1(a));
        thsd(j)=std(t1(a));
     end
	n(j)=length(a);
end
