• aidfi
    了解作者
  • matlab
    开发工具
  • 3KB
    文件大小
  • zip
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 2
    下载次数
  • 2020-01-08 19:23
    上传日期
对加拿大IPIX雷达数据进行的处理和相关程序,有需要的可以下载
IPIX process.zip
  • ipixload.m
    4KB
  • ipixazm.m
    712B
  • ipixinfo.m
    4.1KB
内容介绍
function theStatus = ncdump(theNetCDFFile, theOutputFile) % Derived from ncdump. % Lists variables, units, descriptions, and scalar values of netcdf file. if nargin < 1, help ncdump, theNetCDFFile = '*.*'; end if nargin < 2, theOutputFile = 'stdout'; end % stdout. if isa(theNetCDFFile, 'ncitem') theNetCDFFile = name(parent(parent(theNetCDFFile))); end if any(theNetCDFFile == '*') theFilterSpec = theNetCDFFile; thePrompt = 'Select a NetCDF Input File:'; [theFile, thePath] = uigetfile(theFilterSpec, thePrompt); if ~any(theFile), return, end theNetCDFFile = [thePath theFile]; end if any(theOutputFile == '*') theFilterSpec = theOutputFile; thePrompt = 'Select a Text Output File:'; [theFile, thePath] = uiputfile(theFilterSpec, thePrompt); if ~any(theFile), return, end theOutputFile = [thePath theFile]; end nctypes = ['byte '; 'char '; 'short '; ... 'long '; 'float '; 'double '; ...; 'unknown'; 'unknown'; 'unknown']; nc = netcdf(theNetCDFFile, 'nowrite'); theNCid = ncid(nc); if isempty(nc) disp([' ## Unable to open: ' theNetCDFFile]) return end if strcmp(theOutputFile, 'stdout') fp = 1; elseif strcmp(theOutputFile, 'stderr') fp = 2; elseif isstr(theOutputFile) fp = fopen(theOutputFile, 'w'); else fp = theOutputFile; end if fp < 0, close(nc), return, end [ndims, nvars, ngatts, recdim] = size(nc); dims = dim(nc); ndims = length(dims); vars = var(nc); nvar = length(vars); gatts = att(nc); ngatts = length(gatts); s = ['File: ' theNetCDFFile]; fprintf(fp, '%s\n', s); s = '%% Variables:'; fprintf(fp, '\n%s\n', s); s = '%% (none)'; if nvars < 1, fprintf(fp, '%s\n', s), end for j = 1:nvars; varid = j-1; varname = name(vars{j}); varname = strrep(varname, '''', ''''''); theDatatype = datatype(vars{j}); theDatatype = ['nc' theDatatype]; dims = dim(vars{j}); ndims = length(dims); atts = att(vars{j}); natts = length(atts); sz=ncsize(vars{j}); elements = prod(sz); if elements==1, theValue=num2str(nc{j}(1)); else % unwrap angles if natts & strcmp(atts{1}(1:3),'deg'), val=nc{j}(:); val=unwrap(val); if val(1)<0, val=val+360; end end % compact display of arrays and matrices if prod(sz)==max(sz) & elements>=3, val=nc{j}(:); [dummy,i]=max(sz); dimname = name(dims{i}); theValue=['[' num2str(val(1)) ' ' num2str(val(2)) ' ..' dimname '.. ' num2str(val(end)) ']']; else for i = 1:ndims dimname = name(dims{i}); if i==1, s=['[' dimname]; else s = [s ' x ' dimname]; end end s=[s ']']; theValue=s; end end if natts, theUnit=atts{1}(:); else theUnit=''; end fprintf(fp, '%24s = %10s %s\n',varname,theValue,strrep(theUnit,'\0','')); end s = '%% Dimensions:'; fprintf(fp, '\n%s\n', s); if ndims < 1, disp('%% (none)'), end for i = 1:ndims dimid = i-1; dimname = name(dims{i}); dimname = strrep(dimname, '''', ''''''); dimlen = ncsize(dims{i}); fprintf(fp, '%24s = %10s\n',dimname,int2str(dimlen)); end s = '%% Global attributes:'; fprintf(fp, '\n%s\n', s); s = '%% (none)'; if ngatts < 1,fprintf(fp, '%s\n', s); end for i = 1:ngatts varid = -1; attnum = i-1; attname = name(gatts{i}); if any(attname ~= '_') while attname(1) == '_' attname = [attname(2:length(attname)) attname(1)]; end end attname = strrep(attname, '''', ''''''); theDatatype = datatype(gatts{i}); attlen = ncsize(gatts{i}); attvalue = gatts{i}(:); theDatatype = ['nc' theDatatype]; s = attname; t = mat2str(attvalue); if length(t) > 0 & 0 if t(1) == '[' & t(length(t)) == ']' t = [ '{' t(2:length(t)-1) '}']; end end if ~isstr(attvalue) if (0) f = []; k = 1:length(t)-1; if any(k), f = find(t(k) == t(k+1)); end if any(f), t(f) = []; end f = find(t == ' '); if any(f), t(f) = setstr(t(f) .* 0 + ','); end t = strrep(t, ',', ', '); end end fprintf(fp, '%24s = %10s\n',attname,strrep(attvalue,'\0','')); end if ischar(theOutputFile) & fp > 2, fclose(fp); end close(nc) if nargout > 0, theStatus = status; end
评论
    相关推荐
    • Radar-Systems--Using-MatLab.rar
      使用matlab的雷达系统的分析与设计,难得的好书
    • Radar.zip
      实现雷达测距测速,从多普勒距离维度展示效果
    • RADAR.zip
      本程序为初学雷达者提供了很好的参考。可以实现自己设计雷达的地步。
    • RADAR.rar
      这是有关搜索雷达的程序,并有相关的绘图代码。
    • Radar.zip
      基于OFDM的雷达测距测速MATLAB代码
    • radar_line.rar
      通过雷达判断航向的仿真程序,基于MATLAB实现
    • Radar.rar
      组件库,包括雷达系统仿真组件库、雷达环境仿真组件库以及逻辑控制组件库, 并设计了组件组装环境,结合具体开发过程进行了仿真验证;最后结合某型雷达 系统的仿真验证了本文设计的正确性和高效性。
    • radar.rar
      用VB做的雷达检测系统,很好用的
    • Rat radar 雷达图像处理软件(源码)
      由IDL语言编写的雷达图像处理软件 需要IDL环境 即可运行
    • radar_wokrs.rar
      some radar codes which can be downloaded to study