rescord.m

来自「地震资料处理的matlab源码软件包」· M 代码 · 共 23 行

function rescord

global rescordaxes;
global CordresX;
global CordresY;
global resaxes;
global resfig;

figure(resfig);
%axes(resaxes);
%hold on;
%plot(CordresX, CordresY, 'k+');

[CordresX,CordresY] = ginput(1);
%plot(CordresX, CordresY, 'r+');
CordresXY = ['X= ' num2str(CordresX) '  Y= ' num2str(CordresY)];

axes(rescordaxes);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',CordresXY(1,:));
axes(resaxes);
hold off;