psdcord.m

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

function psdcord

global cordpsdaxes;
global psdCordX;
global psdCordY;
global psdaxes;
global figpsd;

figure(figpsd);
%axes(psdaxes);
%hold on;
%plot(psdCordX, psdCordY, 'k+');

[psdCordX,psdCordY] = ginput(1);
%plot(psdCordX, psdCordY, 'r+');
CordpsdXY = ['X= ' num2str(psdCordX) '  Y= ' num2str(psdCordY)];

axes(cordpsdaxes);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',CordpsdXY(1,:));
axes(psdaxes);
hold off;