T = [0,33,3]; % the atheletes goal time [H,M,S]
D = 10; % km
P = required_pace1(T,D)
class(P)
P = required_pace2(T,D)
% Using DURATION:
function pace = required_pace1(time,distance) % time = [H,M,S], distance = km
durn = duration(time,'Format','hh:mm:ss.SSSSSSSS');
pace = sscanf(char(durn/distance),'%f:',[1,Inf]);
end
% Without DURATION:
function pace = required_pace2(time,distance) % time = [H,M,S], distance = km
secs = [60*60,60,1]*time(:);
temp = secs/distance;
pace = nan(1,3);
pace(3) = mod(temp,60); % seconds
temp = fix(temp/60);
pace(2) = mod(temp,60); % minutes
temp = fix(temp/60);
pace(1) = temp; % hours
end
