drnn1.m

这是我写的关于对角递归神经网络的程序

wd=rands(17,1);
wo=rands(17,1);
wi=rands(8,17);
  
xj=zeros(17,1);
xj_1=xj;


xitei=0.35; 
xited=0.35; 
xiteo=0.35;
%for k2 = 1:10000
for k=1:200
    
    Ini = SM(k,:)';


    for j=1:17
        sj(j)=Ini'*wi(:,j)+wd(j)*xj_1(j);
    end
    for j=1:17
        xj(j)=(1-exp(-sj(j)))/(1+exp(-sj(j)));
    end

    Pj=0*xj;
    for j=1:17
        Pj(j)=wo(j)*(1+xj(j))*(1-xj(j))*xj_1(j);
    end

    Qij=0*wi;
    for j=1:17
        for i=1:8
            Qij(i,j)=wo(j)*(1+xj(j))*(1-xj(j))*Ini(i);
        end
    end   

    yo=0;
    for j=1:17
        yo=yo+xj(j)*wo(j);
    end
    y(k)=yo;
    e =  O(k) - y(k);

    wo = wo + xiteo * e * xj ;
    wd = wd + xited * e * Pj ;
    wi = wi + xitei * e * Qij ;

    xj_1 = xj;  
end