著名的JADE算法

著名的Jade算法，利用高阶累积量盲分离。

#include 
#include “mex.h“
  
#include 
#include 


/* #include “Matutil.c“ repository of once useful matrix-related functions */

#include “JnS.c“  /* The real thing is maintained in an other file */


/* -- The gateway ------------------------------------------------ */


/* I/O Arguments */
#define	Xin	prhs[0]
#define	Bout	plhs[0]


void mexFunction（
                 int nlhs       mxArray *plhs[]
                 int nrhs const mxArray *prhs[]
		 ）
{
  double	*X;  /* the input data matrix */
  double	*B;  /* the output separating matrix */

  unsigned int	datadim ;    /* number of sensors */
  unsigned int	samplesize ; /* number of data points */
  
  /* Check for proper number of arguments */
  if （nrhs != 1） mexErrMsgTxt（“Requires a unique input argument.“）;
  if （nlhs >  1） mexErrMsgTxt（“Returns a single matrix.“）;
  
  
  /* Check the dimensions of X  */
  datadim    = mxGetM（Xin）;
  samplesize = mxGetN（Xin）;

  /*   if （ */
  /*       !mxIsNumeric（Y_IN）  */
  /*       || mxIsComplex（Y_IN） */
  /*       || mxIsSparse（Y_IN） */
  /*       || !mxIsDouble（Y_IN）  */
  /*       ）  */
  /*     mexErrMsgTxt（“Ragnagna...“）; */
  
  
  /* Create a matrix for the return argument */
  Bout = mxCreateDoubleMatrix（datadim datadim mxREAL）;
  
  
  /* Get pointers to the I/O parameters */
  B = mxGetPr（Bout）;
  X = mxGetPr（Xin）;
  
  /* Do it */
  ICA_ALGORITHM （B X （int） datadim （int） samplesize）;

  /* Note: this is a stupid trick to avoid duplicating the gateway code */

  return;

}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2003  2002-06-05 17:56  JnS-1.2\0_README

     文件       1541  2002-06-05 17:45  JnS-1.2\Gateway.c

     文件        120  1999-01-23 23:26  JnS-1.2\JadeR.c

     文件      16235  2002-06-05 17:58  JnS-1.2\JnS.c

     文件      11337  1999-01-23 23:26  JnS-1.2\MatlabjadeR.m

     文件       5263  1999-01-23 23:26  JnS-1.2\MatlabshibbsR.m

     文件       3215  1999-01-24 08:58  JnS-1.2\Matutil.c

     文件        127  1999-01-26 23:24  JnS-1.2\ShibbsR.c

     文件      18748  1999-12-22 22:15  JnS-1.2\COPYING

     文件        722  1999-01-29 06:33  JnS-1.2\Makefile

     文件       1526  1999-01-28 23:56  JnS-1.2\JnS.h

     文件        523  1999-01-24 03:19  JnS-1.2\Matutil.h

     文件       2469  1999-01-29 01:00  JnS-1.2\testJnS.c

     文件       1477  1999-01-29 06:25  JnS-1.2\testJnS.m

     文件        643  1999-01-29 00:57  JnS-1.2\testJointDiag.m

     文件       1556  2002-06-05 17:47  JnS-1.2\JointDiag.c

     文件        253  2002-06-05 17:54  JnS-1.2\History

     文件      19212  2002-06-05 17:50  JnS-1.2\testJnS

     目录          0  2005-12-29 10:30  JnS-1.2

----------- ---------  ---------- -----  ----

                86970                    19