in_to_one.m

加了动量项和域值

function y=IN_TO_ONE(X)
% X=[1	2	3	6	9	3;
%    2	5	6	3	6	5;
%   12	3	5	3	66	6;
%    5	2	53.3	2	5	6;
%    1	36	5	6	3	3
% ];
[Row,Col]=size(X);
for col=1:Col
    x_a=0;
    for row=1:Row
        x_a=x_a+X(row,col);
    end
    X_Average(col)=x_a/Row;
end

for col=1:Col
    x_a=0;
    for row=1:Row
        x_a=x_a+(X(row,col)-X_Average(col))^2;
    end
    D2(col)=x_a/(Row-1);
end

for col=1:Col
    for row=1:Row
       X(row,col)=(X(row,col)-X_Average(col))/sqrt(D2(col));
    end
end
%将输入值归一化到0.1-0.9之间
for row=1:Row
    for col=1:Col
       x_max=max(X(:,col)); x_min=min(X(:,col));
       X(row,col)=X(row,col)*(0.9-0.1)/(x_max-x_min)+(0.9-x_max*(0.9-0.1)/(x_max-x_min));
    end
end

y=X;