ANHEADER.M
上传用户:sfyaiting
上传日期:2009-10-25
资源大小:320k
文件大小:1k
源码类别:

GPS编程

开发平台:

Matlab

  1. function [Obs_types, ant_delta,ifound_types,eof] = anheader(file)
  2. %ANHEADER Analyzes the header of a RINEX file and outputs
  3. %        the list of observation types and antenna offset.
  4. %        End of file is flagged 1, else 0. Likewise for the types.
  5. %        Typical call: anheader('pta.96o')
  6. %Kai Borre 09-12-96
  7. %Copyright (c) by Kai Borre
  8. %$Revision: 1.0 $   $Date: 1997/09/23  $
  9. fid = fopen(file,'rt');
  10. eof = 0;
  11. ifound_types = 0;
  12. Obs_types = [];
  13. ant_delta = [];
  14. while 1    % Gobbling the header
  15.    line = fgetl(fid);
  16.    answer = findstr(line,'END OF HEADER');
  17.    if  ~isempty(answer), break; end;
  18.    if (line == -1), eof = 1; break; end;
  19.    answer = findstr(line,'ANTENNA: DELTA H/E/N');
  20.    if ~isempty(answer)
  21.       for k = 1:3
  22.          [delta, line] = strtok(line);
  23.          del = str2num(delta);
  24.          ant_delta = [ant_delta del];
  25.       end;
  26.    end
  27.    answer = findstr(line,'# / TYPES OF OBSERV');
  28.    if ~isempty(answer)
  29.       [NObs, line] = strtok(line);
  30.       NoObs = str2num(NObs);
  31.       for k = 1:NoObs
  32.          [ot, line] = strtok(line);
  33.          Obs_types = [Obs_types ot];
  34.       end;
  35.       ifound_types = 1;
  36.    end;
  37. end;
  38. %fclose(fid);
  39. %%%%%%%%% end anheader.m %%%%%%%%%