遗传算法的源代码

遗传算法的源代码: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];