ariagra.m

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

function ariagra

global Aria;
global nariagraf;
global nnariagraf;
global ariaaxes;
global archivo;
global letras;
global numeroaria;
global ariaTmax;
global ariaTmin;
global ariaAmax;
global ariaAmin;
global arianorm;
global deltat;

color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w'];

axes(ariaaxes);hold off;
for k=nnariagraf;
    j=0;
    for i=nariagraf;
        j=j+1;
        if i==k;
           X = [0:(numeroaria(j+1)-numeroaria(j)-1)]*deltat(j);
           if arianorm==1;
              plot(X,(Aria(numeroaria(j):(numeroaria(j+1)-1))/Aria(numeroaria(j+1)-1)),color(i));
           else;
              plot(X,Aria(numeroaria(j):(numeroaria(j+1)-1)),color(i));
           end;
           hold on;
        end;
    end;
end;

if ariaTmin~=0 | ariaTmax~=0 | ariaAmin~=0 | ariaAmax~=0 ;
   axis([ariaTmin ariaTmax ariaAmin ariaAmax]);
end;

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

xlabel('tiempo (seg)');
if arianorm==1;
   ylabel('Intensidad de Arias (norm)');
else; 
   ylabel('Intensidad de Arias (cm2/seg3)');
end;
hold off;