#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