pi_flip.m

来自「地震中常用的一些偏移程序」· M 代码 · 共 16 行

function flip();
h=get(gcf,'userdata');
hflip=h(1);
hmsg=h(4);
pol=get(hflip,'userdata');
pol=-1*pol;
clr=get(gcf,'colormap');
colormap(flipud(clr));
set(hflip,'userdata',pol);
if(pol==1)
    set(hmsg,'string','Polarity Normal');
elseif(pol==-1)
    set(hmsg,'string','Polarity Reversed');
end