limder.m

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

function limder

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

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

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

axes(grafaxes);
hold off;