field2draw.m

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

function field2draw;
% Construction of vector field in 2D window
global win_to_draw;
global DS;

win_to_draw = gcf;
ss = get(win_to_draw,'UserData');

win_to_draw = DS(1).windows(ss.number+1);

nbrvar = [0 0];
  neq=length(DS(1).vars);
  for i=1:neq
    if strcmp(ss.Xexpression,DS(1).vars{i})==1
       nbrvar(1) = i;
    end;
    if strcmp(ss.Yexpression,DS(1).vars{i})==1
       nbrvar(2) = i;
    end;
  end;

% Check
  if nbrvar>0
     field2d;
  else
     msgbox('One or two coordinates on window are not DS-variable!',...
            'Sorry, vector field construction is impossible!','warn');
  end;