grafcord.m

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

function grafcord

global grafcordaxes;
global CordgrafX;
global CordgrafY;
global grafaxes;

%axes(grafaxes);
%hold on;
%plot(CordgrafX, CordgrafY, 'k+');

[CordgrafX,CordgrafY] = ginput(1);
%plot(CordgrafX, CordgrafY, 'r+');
CordgrafXY = ['X= ' num2str(CordgrafX) '  Y= ' num2str(CordgrafY)];

axes(grafcordaxes);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',CordgrafXY(1,:));
axes(grafaxes);
hold off;