fnnstruct.m

来自「This M-file is about using Particle Swar」· M 代码 · 共 42 行

function [Y,KT] = fnnstruct(X)
A = 3.8;
x = zeros(1,1500) + 0.1;
for k = 1:1499
    x(k+1) = A * x(k) * (1-x(k));
end

%% train set
train_set = x(1,1:1000);

%% training the FNN
d=40;
M=ones(1,d);
m=3;

pm=(2*m+1)*d;
n_p=5;
Y=[];
for k=1:n_p
    TT=[];
    KT=[];
    for p = 873:999
        M=ones(1,d);
        a = 0;
        b = 0;
        input = [train_set(p-2),train_set(p-1),train_set(p)];
        desired_output = train_set(p+1);
        KT=[KT desired_output];
        m=3;
        for t = 1:d
            for i = 1:m
                M(t) = M(t) * exp ( -((input(i) - X(k,i+((t-1)*m))) / X(k,m*d+i+((t-1)*m)))^2 );
            end
            a = a+X(k,2*m*d+t)*M(t);
            b = b+M(t);
        end
        y = a / (b+.0001);
        TT=[TT y];
    end
    Y=[Y;TT];
end;
Y=Y';