pi_pickssave.m

基于matlab的反演程序,用于地球物理勘探中射线追踪及偏移成像程序.

function PicksSave
global PICKS
hfig=gcf;
for ii=1:size(PICKS,1)
    if(PICKS{ii,1}==hfig)
        picksdata=PICKS{ii,2};
        break
    end
end
if(isempty(picksdata))
    return
end
[file,path]=myuifile(gcf,'.mat','Save Pick File','put');
if(isempty(file))
    return
end
save([path file],'picksdata');