worksave.m

来自「这是国外关于卫星导航方面一书的源代码」· M 代码 · 共 56 行

% -----------------------------------------------------------------------------
%  GPSLab - WORKSAVE.M   Speichern des augenblicklichen MatLab-Workspace
%           (d.h. aller Variablen / Vektoren / Matrizen in einen MAT-File)
% -----------------------------------------------------------------------------
%
%
% (c) iapg 1998 zeb
% -----------------------------------------------------------------------------

set(findobj('style','pushbutton'),'visible','off')
set(findobj('style','popupmenu'),'visible','off')
set(findobj('style','listbox'),'visible','off')
set(findobj('style','text'),'visible','off')
set(findobj('style','checkbox'),'visible','off')
set(findobj('style','radiobutton'),'visible','off')
set(findobj('style','slider'),'visible','off')
set(findobj('style','edit'),'visible','off')
set(findobj('style','frame'),'visible','off')

% Dateibrowser f黵 Speichervorgang

     [fname,pname]=uiputfile('alle_var.mat','Save MatLab workspace to MAT-File',10,10);
     if fname==0 & pname==0
        errordlg(['Break in Program WORKSAVE.M at selection of file name.',...
       ' By cancelling the file dialog box the task will stay undone.'], ...   
       'GPSLab: Break -  iapg 1998 zeb');
       return;
     end

     eval(['save ' pname fname]');
     
gpsjpg=imread('sat.jpg','JPEG');
hmsg=msgbox(['The actual MatLab workspace was saved in a MAT format file ' ...
'using the name chosen by you. The so saved variables can be restored ' ...
'using the command "load [filename]" in thew MatLab command window. ' ...
'A re-saving using the same name overwrites this file !'], ...
'GPSLab Info: Save Workspace -  iapg 1998 zeb','custom',gpsjpg,summer(64));
clear gpsjpg;

        
       
set(findobj('style','listbox'),'visible','on')
set(findobj('style','popupmenu'),'visible','on')
set(findobj('style','pushbutton'),'visible','on')
set(findobj('style','text'),'visible','on')
set(findobj('style','checkbox'),'visible','on')
set(findobj('style','radiobutton'),'visible','on')
set(findobj('style','slider'),'visible','on')
set(findobj('style','edit'),'visible','on')
set(findobj('style','frame'),'visible','on')
       
       
% -----------------------------------------------------------------------------
% (c) iapg 1998 zeb
% -----------------------------------------------------------------------------