zoom.m

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

function zoom

global rielaxes;
global grafaxes;
global grafArange;
global tmax;
global Uidens;
global Uiori;

valden = get(Uidens,'Value');if valden < 0.1,valden=0.1,end;
valori = get(Uiori,'Value');if valori > 0.99,valori=0.99,end;

xo     =  valori*tmax;
xf     =  xo+tmax*(valden)^2;if xf > tmax,xf=tmax,end
trange = [xo xf]; 

axes(rielaxes)
fill([0 0 xo xo 0], [0 1 1 0 0], 'w', [xo xo xf xf xo], [0 1 1 0 0], 'b', [xf xf tmax tmax xf], [0 1 1 0 0], 'w');
axis('off')

axes(grafaxes)
axis([trange grafArange])