erg1sppd.m

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

% -----------------------------------------------------------------------------
% GPSLab:     ERG1SPPD.M
%
% Storing results after call of SPPLAB.M :
% time series: SPP on reference station                            [lstspp1.txt] 
%              SPP on rover station                                [lstspp2.txt]
%              Coordinate - DGPS (DX, DY, DZ, baseline length, Dh) [lstkdgps.txt]
%
% -----------------------------------------------------------------------------
% (c) iapg 1998-2001 zeb

if ~exist('spp_is_calc')
   %warndlg(['Ergebnisdatei nicht erstellbar, solange kein SPP berechnet wurde: '...
   %      'Bitte f黨ren Sie zuerst "SPP"  -> "berechnen" aus.'] ,...
   %      'GPS Lab: Anwendungsfehler beim Aufruf von ERG1SPPD.M');
   return;
end 

fid=fopen('lstspp1.txt','wt+');
fprintf(fid,'%15.7f %12.3f %12.3f %12.3f %12.3f %9.3f %9.3f %9.3f %9.3f\n',[(s1epo(:,1))';(s1_x);(s1_y);(s1_z);(dts1);(sxs1);(sys1);(szs1);(sts1)]);
fclose(fid);

fid=fopen('lstspp2.txt','wt+');
fprintf(fid,'%15.7f %12.3f %12.3f %12.3f %12.3f %9.3f %9.3f %9.3f %9.3f\n',[(s2epo(:,1))';(s2_x);(s2_y);(s2_z);(dts2);(sxs2);(sys2);(szs2);(sts2)]);
fclose(fid);

fid=fopen('lstkdgps.txt','wt+');
fprintf(fid,'%15.7f %12.3f %12.3f %12.3f %12.3f %12.3f\n',[(s1epo(logical(epomask1)))';(delta_x+xs2-xs1);(delta_y+ys2-ys1);(delta_z+zs2-zs1);(bsl);(delta_h)]);
fclose(fid);

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