crxygra.m

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

function crxygra

global Acorxy;
global ncorxygraf;
global nncorxygraf;
global psdaxes;
global deltat;
global archivo;
global letras;
global numerocorxy;
global numero;
global psdFmax;
global psdFmin;
       
color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w'];

axes(psdaxes);
l=0;
for k=nncorxygraf(1,:);
    l=l+1;
    j=0;
    for i=ncorxygraf(1,:);
        j=j+1;
        if k==i & nncorxygraf(2,l)==ncorxygraf(2,j); 
           fult=deltat(i)*(numerocorxy(j+1)-numerocorxy(j)-1);
           X = [0:deltat(i):fult];
           plot(X,Acorxy(numerocorxy(j):(numerocorxy(j+1)-1)),color(i));
           hold on;
        end;
    end;
end;  

if psdFmin~=0 | psdFmax~=0 ;
   axis([psdFmin psdFmax -1 1]);
end;

j=0;
for i=nncorxygraf(1,:);
    j=j+1;
    k=nncorxygraf(2,j);
    xtext = 0.05+(j-1)*0.25;
    text('Position',[xtext 1.2],'Units','normalized','Color',color(i),'String',archivo(i,1:letras(i)));
    text('Position',[xtext 1.1],'Units','normalized','Color',color(i),'String',archivo(k,1:letras(k)));
end;

xlabel('Tiempo (seg)');
ylabel('Correlaci髇');
hold off;