fastKICA快速核ICA

Shen, H., S. Jegelka and A. Gretton: Fast Kernel-Based Independent Component Analysis, IEEE Transactions on Signal Processing 57(9), 3498-3511, 2009.

% ***** BEGIN LICENSE BLOCK *****
% Version: MPL 1.1/GPL 2.0/LGPL 2.1
% 
% The contents of this file are subject to the Mozilla Public License Version
% 1.1 （the “License“）; you may not use this file except in compliance with
% the License. You may obtain a copy of the License at
% http://www.mozilla.org/MPL/
% 
% Software distributed under the License is distributed on an “AS IS“ basis
% WITHOUT WARRANTY OF ANY KIND either express or implied. See the License
% for the specific language governing rights and limitations under the
% License.
% 
% The Original Code is Fast Kernel Independent Component Analysis using
% an Approximate Newton Method.
% 
% The Initial Developers of the Original Code are
% Stefanie Jegelka Hao Shen  Arthur Gretton and Francis Bach.
% Portions created by the Initial Developers are Copyright （C） 2007
% the Initial Developers. All Rights Reserved.
% 
% Contributors:
% Stefanie Jegelka
% Hao Shen
% Arthur Gretton
% Francis Bach
% 
% Alternatively the contents of this file may be used under the terms of
% either the GNU General Public License Version 2 or later （the “GPL“） or
% the GNU Lesser General Public License Version 2.1 or later （the “LGPL“）
% in which case the provisions of the GPL or the LGPL are applicable instead
% of those above. If you wish to allow use of your version of this file only
% under the terms of either the GPL or the LGPL and not to allow others to
% use your version of this file under the terms of the MPL indicate your
% decision by deleting the provisions above and replace them with the notice
% and other provisions required by the GPL or the LGPL. If you do not delete
% the provisions above a recipient may use your version of this file under
% the terms of any one of the MPL the GPL or the LGPL.
% 
% ***** END LICENSE BLOCK *****


function Perf=amariD（Per）
% Amari distance - distance between two matrices. Beware: it does not verify the axioms
%                  of a distance. It is always between 0 and 1.

m=size（Per1）;
Perf=[sum（（sum（abs（Per））./max（abs（Per））-1）/（m-1））/m; sum（（sum（abs（Per‘））./max（abs（Per‘））-1）/（m-1））/m];
Perf=mean（Perf）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2013-12-06 11:13  fastKICA\
     文件       15738  2013-12-06 11:08  win64.zip
     文件        2140  2009-03-25 08:59  fastKICA\amariD.m
     文件        3742  2009-03-25 09:01  fastKICA\demo.m
     文件        5272  2009-03-25 09:01  fastKICA\fastkica.m
     文件       10269  2009-03-27 13:28  fastKICA\README.txt
     文件       50044  2007-01-10 17:35  fastKICA\source2.wav
     文件       50044  2007-01-10 17:35  fastKICA\source3.wav
     文件       50044  2007-01-10 17:35  fastKICA\source4.wav
     目录           0  2009-01-06 07:42  fastKICA\utils\
     文件        4011  2009-03-25 09:05  fastKICA\utils\chol_gauss.c
     文件        4133  2009-03-25 09:01  fastKICA\utils\compDerivChol.m
     文件        4343  2009-03-25 09:05  fastKICA\utils\dChol2.c
     文件        4351  2009-03-25 09:05  fastKICA\utils\dChol2Lin.c
     文件        2932  2009-03-25 09:02  fastKICA\utils\dCholLin.m
     文件        2924  2009-03-25 09:02  fastKICA\utils\dChol.m
     文件        3603  2009-03-25 09:06  fastKICA\utils\dKmn.c
     文件        3590  2009-03-25 09:06  fastKICA\utils\dKmnLin.c
     文件        2499  2009-03-25 09:06  fastKICA\utils\getKern.c
     文件        2995  2009-03-25 09:02  fastKICA\utils\hessChol.m
     文件        3313  2009-03-25 09:02  fastKICA\utils\hsicChol.m