matlab GPS伪距（pseudorange）单点定位

GPS伪距单点定位，O文件为rinex2.11版本。

function [t]=cal2gps（cal）
if cal（1）<20
year=cal（1）+2000;
else
year=cal（1）+1900;
end;
month=cal（2）;
day=cal（3）+（cal（4）*3600+cal（5）*60+cal（6））/86400;

y = year + 4800; %4801 B.C. is a century year and also a leap year.
if（ year < 0 ）
    y =y+ 1; 	% Please note that there is no year 0 A.D.
end
m=month;
if（ m <= 2 ）	% January and February come after December.
    m = m+12;
    y = y - 1;
end
e=floor（30.6 * （m+1））;
a=floor（y/100）;	% number of centuries

% 教皇格雷戈里十三世于1582年2月24日以教皇训令颁布，将1582年10月5日至14抹掉。1582年10月4日过完后第二天是10月15日
if（ year <1582 ）|（year==1582&month<10）|（year==1582& month==10 &day<15）
    b = -38;
else
    b = floor（（a/4） - a）; % number of century years that are not leap years
end
c=floor（365.25* y）; % Julian calendar years and leap years
jd= b + c + e + day

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1036  2012-12-30 14:12  MATLAB伪距单点定位程序\cal2gps.m

     文件       5054  2013-09-13 01:12  MATLAB伪距单点定位程序\main.m

     文件       1768  2013-09-12 16:05  MATLAB伪距单点定位程序\NavPos.m

     文件       1436  2012-12-30 23:32  MATLAB伪距单点定位程序\outcom_pic.m

     文件        238  2013-09-13 01:25  MATLAB伪距单点定位程序\readme

     文件       2887  2013-09-12 20:23  MATLAB伪距单点定位程序\ReadNavfile.m

     文件       3530  2013-09-12 21:19  MATLAB伪距单点定位程序\ReadObsfile.m

     文件      98031  2012-11-14 19:13  MATLAB伪距单点定位程序\wuhn2890.10n

     文件    2051176  2012-11-14 19:13  MATLAB伪距单点定位程序\wuhn2890.10o

     文件        423  2012-12-30 18:09  MATLAB伪距单点定位程序\XYZ2BLH.m

     文件        227  2013-04-23 16:32  MATLAB伪距单点定位程序\XYZ2NEU.m

     文件      53248  2013-01-11 21:33  MATLAB伪距单点定位程序\数据\CRX2RNX.exe

     文件      98031  2013-09-13 00:18  MATLAB伪距单点定位程序\数据\wuhn2890.10n

     文件    2077834  2013-09-13 00:23  MATLAB伪距单点定位程序\数据\wuhn2890.10o

     文件      99837  2013-09-13 00:19  MATLAB伪距单点定位程序\数据\wuhn2900.10n

     文件    2071477  2013-09-13 00:24  MATLAB伪距单点定位程序\数据\wuhn2900.10o

     文件     101643  2013-09-13 01:04  MATLAB伪距单点定位程序\数据\wuhn2910.10n

     文件    2077248  2013-09-13 01:05  MATLAB伪距单点定位程序\数据\wuhn2910.10o

     文件      96827  2013-09-13 01:04  MATLAB伪距单点定位程序\数据\wuhn2920.10n

     文件    2071848  2013-09-13 01:06  MATLAB伪距单点定位程序\数据\wuhn2920.10o

     文件         22  2013-09-13 01:06  MATLAB伪距单点定位程序\数据\新建 文本文档.bat

     目录          0  2014-08-31 21:59  MATLAB伪距单点定位程序\数据

     目录          0  2014-08-31 21:59  MATLAB伪距单点定位程序

----------- ---------  ---------- -----  ----

             10913821                    23