guassdist.m

是一个用MATLAB编的一个系统

function g=guassdist(x,c,b)
%计算格林矩阵
% x为np×ni的输入矩阵
% c为学习后的ni×m中心矩阵
% b为方差
%g为np×m的隐含层输出矩阵
[np,ni]=size(x);
[ni,m]=size(c);
q=zeros(np,m);
p=zeros(ni,m);
 if ni==1
    for i=1:np
      p=x(i,:)'*ones(1,m);
      q(i,:)=abs(p-c);
    end
  else
     for i=1:np
     p=x(i,:)'*ones(1,m);
     q(i,:)=sum((p-c).^2);
     end
  end
  g=exp(-q/(b*b));