evoltgrf.m

地震资料处理的matlab源码软件包

function evoltgrf

global evolgraf;
global evolaxes;
global archivo;
global letras;
global evolt;
global evolf;
global evolB;
global evolAmax;
global evolAmin;
global evolTmax;
global evolTmin;
global evolFmax;
global evolFmin;

axes(evolaxes);hold off;
colormap(copper);

surf(evolt,evolf,evolB);
view([1 1 1]);
shading interp;
if evolTmin~=0 | evolTmax~=0 |evolFmin~=0 | evolFmax~=0 | evolAmin~=0 | evolAmax~=0 ;
   axis([evolTmin evolTmax evolFmin evolFmax evolAmin evolAmax]);
end;
grid on;

color=['y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w' 'y' 'g' 'c' 'r' 'b' 'm' 'w'];
i=evolgraf;
text('Position',[0.25 1.1],'Units','normalized','Color',color(i),'String',archivo(i,1:letras(i)));

xlabel('tiempo (seg)');
ylabel('frecuencia (Hz)');
zlabel('amplitud (cm/seg)');
hold off;