save_point.m

来自「关于混沌系统的李氏指数计算等混沌系统中重要参数计算的代码」· M 代码 · 共 28 行

function Save_point;
% Save initial point to file

global DS;
global matdspath;

cd(matdspath.systems);

[newfile,newpath] = uiputfile([DS(1).name '.pnt'],'Save point to file:');
if newfile~=0
   if isempty(strfind(newfile,'.pnt'))
      namefile=[newpath newfile '.pnt'];
   else 
      namefile=[newpath newfile];
   end;

% Output structure
   Pnt.name = DS(1).name;
   Pnt.coords = DS(1).Xinit;
   Pnt.time_start=DS(1).time_start;

% Write structure to file
  
   save(namefile,'Pnt');

end;

cd(matdspath.main);