evolnext.m

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

function evolnext

global evolgraf;
global evolaxes;
global archivo;
global letras;
global evolt;
global evolf;
global evolB;
global NcolevolB;
global indcolevolB;
global evolAmax;
global evolAmin;
global evolFmax;
global evolFmin;
global evoltipo;

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

axes(evolaxes);hold off;

if indcolevolB==NcolevolB;
   indcolevolB=1;
else
   indcolevolB=indcolevolB+1;
end;

if evoltipo==1;
   loglog(evolf,evolB(:,indcolevolB),color(i));
else;
   plot(evolf,evolB(:,indcolevolB),color(i));
end;

if evolFmin~=0 | evolFmax~=0 | evolAmin~=0 | evolAmax~=0 ;
   axis([evolFmin evolFmax evolAmin evolAmax]);
end;

text('Position',[0.25 1.1],'Units','normalized','Color',color(i),'String',archivo(i,1:letras(i)));

titulox=['frecuencia (Hz)' '    t =  ' num2str(evolt(indcolevolB))];
xlabel(titulox);
ylabel('amplitud (cm/seg)');
hold off;