erg2head.m

这是国外关于卫星导航方面一书的源代码

% -----------------------------------------------------------------------------
% GPSLab:     ERG2HEAD.M
%
% Storing the results of SPP,DGPS,CDGPS into the Header file: 
% Overwriting of X,Y,Z in the files S1HEAD and S2HEAD by the variables
% xxs1,yys1,zzs1 and xxs2,yys2,zzs2 from SPP, or only in S2HEAD by xxs2,yys2,zzs2 
% from DGPS and CDGPS.
%
% -----------------------------------------------------------------------------
% (c) iapg 1999-2001 zeb  -  Version 12-99/e05-01

if ~exist('dgps_is_calc')&~exist('amf_is_calc')&~exist('spp_is_calc')
   warndlg(['results cannot be stored as long as no processing was started: '...
         'Pleas start at first "SPP" or "DGPS" or "CDGPS(amfe)"  -> "calculate" '] ,...
         'GPS Lab: application error calling ERG2HEAD.M');
   return;
end 

if exist('spp_is_calc')   % Bei SPP auch das Ergebnis f黵 den Referenzpunkt 黚ernehmen.
load s1head;
fid=fopen('s1head','wt+');
fprintf(fid,'%14.4f\n%14.4f\n%14.4f\n%14.4f\n%14.4f\n%14.4f\n%14i\n%14i\n%14i\n%14i\n%14i\n%14i\n%14i\n%14i\n', ...
xxs1,yys1,zzs1,s1head(4),s1head(5),s1head(6),s1head(7),s1head(8),s1head(9),s1head(10),s1head(11),s1head(12),s1head(13),s1head(14));
fclose(fid);
end

load s2head;
fid=fopen('s2head','wt+');
fprintf(fid,'%14.4f\n%14.4f\n%14.4f\n%14.4f\n%14.4f\n%14.4f\n%14i\n%14i\n%14i\n%14i\n%14i\n%14i\n%14i\n%14i\n', ...
xxs2,yys2,zzs2,s2head(4),s2head(5),s2head(6),s2head(7),s2head(8),s2head(9),s2head(10),s2head(11),s2head(12),s2head(13),s2head(14));
fclose(fid);

gpsjpg=imread('sat.jpg','JPEG');
hmsg=msgbox(['The approximate coordinates were replaced by the recently calculated coordinates ' ...
'(results from SPP, DGPS or CDGPS/amf); in SPP for both stations, in DGPS and CDGPS(amf) ROVER only. The first 3 rows' ...
'of the Header files (i.e. X,Y,Z) were overwritten. The other rows were left unchanged.'], ...
'GPSLab Info: actual results --> Header','custom',gpsjpg,summer(64));
clear gpsjpg;


% --------------------------------------------------------------------------------
% (c) iapg 1999-2001 zeb