% LengthTime
% Filter trips of length greater than 50 miles.
% Author: George Hilton Email: g.hilton@soton.ac.uk
% Date 26/01/2017 (Trump Inauguration!)

Tracks = dir('C:\Local\Traffic Data\Matlab OSM tracks\Uses SRN');

% Remove current and parent directory markers to prevent infinite loop
yg = ismember({Tracks.name},{'.','..','LengthTime.m'});
Tracks(yg) = [];

Results = cell(length(Tracks),3);

% Iterate through all tracks 
for i1 = 1 : length(Tracks)
    
    ThisTrack = Tracks(i1).name;
    load(ThisTrack)
    
    for i2 = 1 : length(ThisTrack)
        
        % Record length and time of track
        lat = data.Latitude;
        lon = data.Longitude;

        d = distance(lat(1:end-1), lon(1:end-1), lat(2:end), lon(2:end));
        dist = sum(d)*69.047;
        start = data.Time(1);
        finish = data.Time(end);
        
        Results{i1,1} = dist;
        Results{i1,2} = start;
        Results{i1,3} = finish;
    end
end