遗传算法的源代码

遗传算法的源代码:Functions:

?mexFunction, eqn.

?
? Functions adapted from 'Numerical Recipes in C':
?
?mrqcof, mrqmin, covsrt, gaussj, vector, matrix, ivector, free_ivector,
?free_vector, ree_matrix, nerror.
?
?
*/?

#include
#include
#include
#include "mex.h"

#define SWAP(a,b) {float temp=(a);(a)=(b);(b)=temp;}

/* gateway routine */
void mexFunction(
?int nlhs, Matrix *plhs[],
?int nrhs, Matrix *prhs[])
/*void mexFunction(nlhs,plhs,nrhs,prhs)
int nlhs;
Matrix *plhs[];
int nrhs;
Matrix *prhs[];*/
{?
?
?double *xp,*ap,*yp,*sigp,*ndatap,*mfitp,*map,*listap;
?float alamda,**covar,chisq,oldchisq,**alpha,**matrix(),*vector(),*x,*y,*sig;
?double *xout;
?float a[31];
?int mfit,ma,ndata,lista[31],ctr,maxit,npar,vecl,count;
?void ree_matrix(),free_vector();
?void mrqmin();
?void (*funcs)();
?void eqn();
?Matrix *strptr[1];