get.m

来自「一些经典遗传算法问题的matlab程序调度问题分配问题等等」· M 代码 · 共 20 行

function varargout =get(ddv,varargin)
if nargin==1
  set(ddv.gen)
  fprintf('p_val\n')
else
  for k=1:nargin-1
    switch varargin{k}
     case 'p_val'
      varargout{k}=ddv.ddv_val;
     otherwise
      try 
	varargout{k}=get(ddv.gen,varargin{k});
      catch 
      error(strcat('bad argument: ',varargin{k}))
      end
    end
  end
end