evolcor.m

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

function evolcor

global evolcordaxes;
global CordevolX;
global CordevolY;
global evolaxes;
global evolfig;

figure(evolfig);
[CordevolX,CordevolY] = ginput(1);
CordevolXY = ['X= ' num2str(CordevolX) '  Y= ' num2str(CordevolY)];

axes(evolcordaxes);hold off;
fill([0 0 1 1 0],[0 1 1 0 0],'k');
axis('off')
text('Position',[0.0 0.0],'Units','normalized','Color','w','String',CordevolXY(1,:));
axes(evolaxes);
hold off;