LTPDA_DEG2RAD Convert degrees to radians %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: LTPDA_DEG2RAD Convert degrees to radians CALL: r = ltpda_deg2rad(deg, min, sec) INPUTS: deg - degrees min - minutes sec - seconds OUTPUTS: r - radians VERSION: $Id: ltpda_deg2rad.m,v 1.5 2007/07/13 12:17:39 ingo Exp $ HISTORY: 26-01-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function r = ltpda_deg2rad(deg, min, sec) 0002 % LTPDA_DEG2RAD Convert degrees to radians 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: LTPDA_DEG2RAD Convert degrees to radians 0007 % 0008 % CALL: r = ltpda_deg2rad(deg, min, sec) 0009 % 0010 % INPUTS: deg - degrees 0011 % min - minutes 0012 % sec - seconds 0013 % 0014 % OUTPUTS: r - radians 0015 % 0016 % VERSION: $Id: ltpda_deg2rad.m,v 1.5 2007/07/13 12:17:39 ingo Exp $ 0017 % 0018 % HISTORY: 26-01-2007 M Hewitson 0019 % Creation 0020 % 0021 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0022 0023 r = (deg + min/60 + sec/3600)*pi/180; 0024 0025