limder.m

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

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;