limizq.m

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

function limizq

global grafaxes;
global Limiteizq;
global Limiteder;
global grafArange;

axes(grafaxes);
hold on;
if Limiteizq~=Limiteder;plot([Limiteizq Limiteizq], grafArange, 'k-');end

[Limiteizq, y] = ginput(1);
plot([Limiteizq Limiteizq], grafArange, 'r-');

axes(grafaxes);
hold off;