crgra.m

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

function crgra

global Acor;
global ncorgraf;
global nncorgraf;
global psdaxes;
global deltat;
global archivo;
global letras;
global numerocor;
global psdFmax;
global psdFmin;
global numero;
       
color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w'];

axes(psdaxes);
j=0;
for k=nncorgraf;
    j=0;
    for i=ncorgraf;
        j=j+1;
        if i==k;
           fult=deltat(i)*(numerocor(j+1)-numerocor(j)-1);
           X = [0:deltat(i):fult];
           plot(X,Acor(numerocor(j):(numerocor(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=nncorgraf;
    j=j+1;
    xtext = 0.05+(j-1)*0.25;
    text('Position',[xtext 1.2],'Units','normalized','Color',color(i),'String',archivo(i,1:letras(i)));
end;

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