2018-03-30 10:04:14 +00:00
|
|
|
function dmsOutput = deg2dms(deg)
|
|
|
|
|
% DEG2DMS Conversion of degrees to degrees, minutes, and seconds.
|
|
|
|
|
% The output format (dms format) is: (degrees*100 + minutes + seconds/100)
|
|
|
|
|
|
|
|
|
|
% Written by Kai Borre
|
|
|
|
|
% February 7, 2001
|
|
|
|
|
% Updated by Darius Plausinaitis
|
|
|
|
|
|
|
|
|
|
%%% Save the sign for later processing
|
|
|
|
|
neg_arg = false;
|
|
|
|
|
if deg < 0
|
|
|
|
|
% Only positive numbers should be used while spliting into deg/min/sec
|
|
|
|
|
deg = -deg;
|
|
|
|
|
neg_arg = true;
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
%%% Split degrees minutes and seconds
|
|
|
|
|
int_deg = floor(deg);
|
|
|
|
|
decimal = deg - int_deg;
|
|
|
|
|
min_part = decimal*60;
|
|
|
|
|
min = floor(min_part);
|
|
|
|
|
sec_part = min_part - floor(min_part);
|
|
|
|
|
sec = sec_part*60;
|
|
|
|
|
|
|
|
|
|
%%% Check for overflow
|
|
|
|
|
if sec == 60
|
|
|
|
|
min = min + 1;
|
|
|
|
|
sec = 0;
|
|
|
|
|
end
|
|
|
|
|
if min == 60
|
|
|
|
|
int_deg = int_deg + 1;
|
|
|
|
|
min = 0;
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
%%% Construct the output
|
|
|
|
|
dmsOutput = int_deg * 100 + min + sec/100;
|
|
|
|
|
|
|
|
|
|
%%% Correct the sign
|
|
|
|
|
if neg_arg == true
|
|
|
|
|
dmsOutput = -dmsOutput;
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%% end deg2dms.m %%%%%%%%%%%%%%%%
|
