能源行业(电力石油煤炭)

开发平台：

Matlab

fourkpca.m：源码内容

							function a=fourkpca(test,train,i,new)
n1=size(train,1);
a=0;
for j1=1:n1
    for j2=1:n1
        a=a+(((train(j1,i)-test(new,i)^2)+(train(j2,i)-test(new,i))^2)*onekpca(train(j1,:),test(new,:))*onekpca(train(j2,:),test(new,:)));
    end
end
a=(1/n1^2)*a;

						