feval.cpp

matlab的GA工具箱与vc混和实现遗传算法的源码

  #include "matlib.h"
  #pragma hdrstop
  
  #include "feval.h"
  
  
  Mm feval(Mm fun, Mm varargin, i_o_t, Mm& y1__o, Mm& y2__o, Mm& y3__o, Mm& y4__o, Mm& y5__o, Mm& y6__o) {
    begin_scope
    fun.setname("fun"); varargin.setname("varargin"); 
    dMm(y1); dMm(y2); dMm(y3); dMm(y4); dMm(y5); dMm(y6); 
    
    call_stack_begin;
    // nargin, nargout entry code
    double old_nargin=nargin_val; if (!nargin_set) nargin_val=1+varargin.size();
    nargin_set=0;
    double old_nargout=nargout_val; if (!nargout_set) nargout_val=6.0;
    nargout_set=0;
    
    // translated code
    
    
    
    
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    fun.setname(NULL); varargin.setname(NULL); 
    y1__o=y1; y2__o=y2; y3__o=y3; y4__o=y4; y5__o=y5; y6__o=y6; 
    return x_M;
    end_scope
  }
  
  
  class global_init_0076405770_t {
    private:
      feval_type* old_feval_func;
    public:
      global_init_0076405770_t() { old_feval_func=feval_func; feval_func=feval; }
      ~global_init_0076405770_t() { feval_func=old_feval_func; }
  };
  
  global_init_0076405770_t global_init_0076405770;
  
  Mm feval(Mm fun, Mm varargin) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=2.0+varargin.size()-1; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=1.0; nargout_set=1;
    dMm(y1__o); dMm(y2__o); dMm(y3__o); dMm(y4__o); dMm(y5__o); dMm(y6__o); 
    feval(fun, varargin, i_o, y1__o, y2__o, y3__o, y4__o, y5__o, y6__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return(y1__o);
    end_scope
  }
  
  Mm feval(Mm fun, Mm varargin, i_o_t, Mm& y1__o, Mm& y2__o) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=2.0+varargin.size()-1; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=2.0; nargout_set=1;
    dMm(y3__o); dMm(y4__o); dMm(y5__o); dMm(y6__o); 
    feval(fun, varargin, i_o, y1__o, y2__o, y3__o, y4__o, y5__o, y6__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return x_M;
    end_scope
  }
  
  Mm feval(Mm fun, Mm varargin, i_o_t, Mm& y1__o, Mm& y2__o, Mm& y3__o) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=2.0+varargin.size()-1; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=3.0; nargout_set=1;
    dMm(y4__o); dMm(y5__o); dMm(y6__o); 
    feval(fun, varargin, i_o, y1__o, y2__o, y3__o, y4__o, y5__o, y6__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return x_M;
    end_scope
  }
  
  Mm feval(Mm fun, Mm varargin, i_o_t, Mm& y1__o, Mm& y2__o, Mm& y3__o, Mm& y4__o) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=2.0+varargin.size()-1; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=4.0; nargout_set=1;
    dMm(y5__o); dMm(y6__o); 
    feval(fun, varargin, i_o, y1__o, y2__o, y3__o, y4__o, y5__o, y6__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return x_M;
    end_scope
  }
  
  Mm feval(Mm fun, Mm varargin, i_o_t, Mm& y1__o, Mm& y2__o, Mm& y3__o, Mm& y4__o, Mm& y5__o) {
    begin_scope
    double old_nargin=nargin_val; nargin_val=2.0+varargin.size()-1; nargin_set=1;
    double old_nargout=nargout_val; nargout_val=5.0; nargout_set=1;
    dMm(y6__o); 
    feval(fun, varargin, i_o, y1__o, y2__o, y3__o, y4__o, y5__o, y6__o);
    nargout_val=old_nargout;
    nargin_val=old_nargin;
    return x_M;
    end_scope
  }