optlane.m

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

% -----------------------------------------------------------------------------
% GPSLab: OPTLANE.M      "Parameter Setzen" f黵 die Auswertung von Tr鋑erphasen:
%                        - Modell f黵 die korrektur der troposph鋜ischen Refraktion:
%                          Modified Hopfield oder Saastamoinen
%                        - Elevationsmaske [癩
%                        - Rasterweite [m]
%                        - Kommentar f黵 die Ergebnisdatei
%                        - Laning-Typ: Lw (1/-1), L43 (4/-3), L34 (-3/4)
%                                      lam=0.86 , lam=0.11  , lam=1.63    [m]
%
%                        Auswahl setzt die Variablen "el_mask"  (Zahl zwischen 0 und 90), 
%                                                    "raster"   (Zahl zwischen 0.001 und 1),
%                                                    "trop_typ" (String "mh" oder "sa"),
%                                                    "lane"     (String "Lw", "L43" oder "L34")
%                                                und "comment"  (String, beliebig)
%                        im Workspace (keine Optionsdatei !)
%
%                        Dient dem men黦esteuerten Parameter-Setzen von AMFLAB.M
% -----------------------------------------------------------------------------
% (c) iapg 1999-2002 zeb

% Troposph鋜enmodell

what_trop=questdlg('Which Troposphere Correction Model should be used ?', ...
                         'GPS Lab: Select a Troposphere Model -  2002 zeb', ...
                         'Modified Hopfield','Saastamoinen','Modified Hopfield (default)');
   
     switch what_trop,
       case 'Modified Hopfield', 
         trop_typ=('mh');
       case 'Saastamoinen',
         trop_typ=('sa');
       case 'Modified Hopfield (default)',
         errordlg(['Cancel of "Select a Troposphere Model".' ...
            ' Default is Modified Hopfield.'], ...   
         'GPSLab: Cancel -  2002 zeb');
         trop_typ=('mh');
         return;
     end % switch
     
% "what_trop" enth鋖t String f黵 das Trop.korr.modell
     

% Auswahl der Lane (Linearkombination: Lw, L43 oder L34)

lanequest=questdlg('Which Linear Combination of L1 and L2 should be used ?', ...
                         'GPS Lab: Selection of the Lane -  2002 zeb', ...
                         'Lw (0.86 m)','L43 (0.11 m)','L34 (1.63 m)','Lw (0.86 m) (default)');
   
     switch lanequest,
       case 'Lw (0.86 m)', 
         lane=('Lw');
       case 'L43 (0.11 m)',
         lane=('L43');
       case 'L34 (1.63 m)',
         lane=('L34');
       case 'Lw (0.86 m) (default)',
         errordlg(['Cancelling the Selection of the Linear Combination.' ...
            ' Default is Widelane Lw.'], ...   
         'GPSLab: Cancel -  2002 zeb');
         lane=('Lw');
         return;
     end % switch
     
% "lanequest" enth鋖t String f黵 die Lane, "lane" enth鋖t K黵zel

% Elevationsmaske + Kommentarzeile

if ~exist('el_mask')                  % wenn OPTIONS.M noch nicht aufgerufen wurde
   el_mask=10;
end

if ~exist('raster')                   % wenn OPTIONS.M noch nicht aufgerufen wurde
   raster=.01;
end

if ~exist('comment')                  % wenn OPTIONS.M noch nicht aufgerufen wurde
   comment='Project: , Baseline: , Processed by: ';
end

prompt={'Elevation mask [