resascii.m

德国人开发的地震处理分析软件

function resascii

global Ares;
global resgraf;
global resdeltat;
global numerores;
global nresgraf;
global archX;
global exten;
global asciicol;
global resnorm;
global MaxA;

asciicol=3;
exten='.res';

j=0;
for i=nresgraf;
    j=j+1;
    if i==resgraf;
       if resnorm==1;
          archX=[resdeltat(j),resdeltat(j),resdeltat(j);[Ares(numerores(j):numerores(j+1)-1,1:2),(Ares(numerores(j):numerores(j+1)-1,[3])/MaxA(j))]]';
       else;
          archX=[resdeltat(j),resdeltat(j),resdeltat(j);Ares(numerores(j):numerores(j+1)-1,:)]';
       end;
    end;
end;

clc;

ascii;