ineascii.m

地震资料处理的matlab源码软件包

function ineascii

global Aine;
global inegraf;
global inedeltat;
global numeroine;
global ninegraf;
global ineini;
global inetf;
global ineXi;
global archX;
global exten;
global asciicol;

asciicol=5;
exten='.ine';

j=0;
for i=ninegraf;
    j=j+1;
    if i==inegraf;
       archX=[inedeltat(j),inedeltat(j),inedeltat(j),inedeltat(j),inedeltat(j);...
          Aine(numeroine(j):numeroine(j+1)-1,:)]';
    end;
end;

clc;

ascii;