function [H]=My_Guass(data2,cents,K,R)
%構造Guass函數矩陣H
for m=1:size(data2)
    for n=1:K
        H(m,n)=exp(-(data2(m,:)-cents(n,:))*R(:,:,n)*(data2(m,:)-cents(n,:))');
    end
end
h(1:size(data2))=1;  % 相當于加入一個隱藏單元，該單元輸出為1.也就是在輸出層加了一個要求出的偏置
% H=[H,h'];
H=[h',H];