How to convert grid file to text file?

Question

hanif hamden 2020-6-28

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/555958-how-to-convert-grid-file-to-text-file

编辑： Walter Roberson 2020-7-5

采纳的回答： Walter Roberson

Example.txt

Hi there.

Can you help me on how to convert this type of grid file into text file (lat, lon, amp, phase) for each column.

The grid file is attached

0 个评论
显示 -2更早的评论隐藏 -2更早的评论

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Walter Roberson 2020-6-28

1
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/555958-how-to-convert-grid-file-to-text-file#answer_458149

在 MATLAB Online 中打开

fid = fopen('Example.txt');
data = cell2mat(textscan(fid, '', 'HeaderLines', 5));
fclose(fid);
amps = data(1:2:end,:);
phases = data(2:2:end,:);
[nr, nc] = size(amps);
longs = linspace(0, 360, nc+1);
longs(end) = [];
lats = linspace(-90, 90, nr+1);
lats(end) = [];
subplot(2,1,1);
surf(longs, lats, amps);
xlabel('long')
ylabel('lat')
title('amplitudes')
subplot(2,1,2)
surf(longs, lats, phases)
xlabel('long')
ylabel('lat')
title('phases')

9 个评论
显示 7更早的评论隐藏 7更早的评论

Walter Roberson 2020-6-29

在 MATLAB Online 中打开

filename = 'O1DTU10.asc';
fid = fopen(filename);
L = cell(5,1);
for K = 1 : 5; L{K} = fgetl(fid); end
longrange = sscanf(L{1}, '%f');
latrange = sscanf(L{2}, '%f');
%spacing = sscanf(L{3}, '%f');
widths = sscanf(L{4}, '%f');
indicates_missing = sscanf(L{5}, '%f');
per_line = 30;
partwidth = widths(1);
nparts = widths(2);
parts = cell(nparts,1);
colgroups = floor(partwidth / per_line);
leftover = partwidth - colgroups * per_line;
failed = false;
for P = 1 : nparts
  data1 = fscanf(fid, '%f', [per_line 2*colgroups]);
  if isempty(data1); failed = true; break; end
  data1 = reshape(data1, [per_line 2 colgroups]);
  data2 = fscanf(fid, '%f', [leftover 2]);
  data = [reshape(permute(data1, [1 3 2]), [], 2); data2];
  parts{P} = data;
end
if failed
    fprintf('Only got %d of %d parts successfully\n', P, npars);
end
if ~failed
  L = fgetl(fid);
  if ischar(L) && ~isempty(L)
    fprintf('Not empty at apparent EOF, content is:\n%s\n', L);
    failed = true;
  end
end
if ~failed
    lats = linspace(latrange(1), latrange(2), widths(2));
    longs = linspace(longrange(1), longrange(2), widths(1));
    data = permute(cat(3, parts{:}),[1 3 2]);
    amps = data(:,:,1) .';
    amps(amps == indicates_missing(1)) = nan;
    phases = data(:,:,2) .';
    phases(phases == indicates_missing(2)) = nan;
    
    subplot(2,1,1);
    surf(longs, lats, amps, 'edgecolor', 'none');
    xlim(longrange);
    ylim(latrange);
    xlabel('long'); ylabel('lat'); zlabel('amp');
    title('amplitudes');
    
    subplot(2,1,2);
    surf(longs, lats, phases, 'edgecolor', 'none');
    xlim(longrange);
    ylim(latrange);
    xlabel('long'); ylabel('lat'); zlabel('phase');
    title('phases');
    
    fprintf('Data available; see lats, longs, amps, phases\n');
end
fclose(fid);