ariascii.m

来自「德国人开发的地震处理分析软件」· M 代码 · 共 28 行

function ariascii

global Aria;
global ariagraf;
global numeroaria;
global nariagraf;
global deltat;
global archX;
global exten;
global asciicol;

exten='.ari';
asciicol=1;

j=0;
for i=nariagraf;
    j=j+1;
    if i==ariagraf;
       archX=[deltat(j);Aria(numeroaria(j):numeroaria(j+1)-1)]';
    end;
end;

clc;

ascii;