www.gusucode.com > matlab的GA工具箱与vc混和实现遗传算法源码程序 > feval.cpp
#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 }