fftcord.m

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

function fftcord

global fftcordaxes;
global CordfftX;
global CordfftY;
global fftaxes;
global fftfig;

figure(fftfig);
%axes(fftaxes);
%hold on;
%plot(CordfftX, CordfftY, 'k+');

[CordfftX,CordfftY] = ginput(1);
%plot(CordfftX, CordfftY, 'r+');
CordfftXY = ['X= ' num2str(CordfftX) '  Y= ' num2str(CordfftY)];

axes(fftcordaxes);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',CordfftXY(1,:));
axes(fftaxes);
hold off;