ampcord.m

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

function ampcord

global ampcordaxes;
global CordampX;
global CordampY;
global ampaxes;
global ampfig;

figure(ampfig);
%axes(ampaxes);
%hold on;
%plot(CordampX, CordampY, 'k+');

[CordampX,CordampY] = ginput(1);
%plot(CordampX, CordampY, 'r+');
CordampXY = ['X= ' num2str(CordampX) '  Y= ' num2str(CordampY)];

axes(ampcordaxes);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',CordampXY(1,:));
axes(ampaxes);
hold off;