grfascii.m

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

function grfascii

global A;
global nlbgraf;
global deltat;
global numero;
global Limiteizq;
global Limiteder;
global archX;
global exten;
global asciicol;

asciicol=1;
exten='.grf';

No=numero(nlbgraf);
Nn=numero(nlbgraf+1)-No;

if Limiteizq==Limiteder;
   Nizq=0;
   Nder=Nn;
else;
   Nizq=fix(Limiteizq/deltat(nlbgraf));
   Nder=fix(Limiteder/deltat(nlbgraf));
end;

if Nizq>Nder;Nizq=Mud;Nizq=Nder;Nder=Mud;end;

if Nder>=Nn;
   Nf=No+Nn-1;
else
   Nf=No+Nder;
   Nn=Nder-Nizq+1;
end;

archX=A(No+Nizq:Nf);

ascii;