updateweight.asv

for MLP neural network.

function [WI WO]=UpdateWeight(P,T,PT,TT,WI,WO,D,ETAI,ETAO,ALPHA,NTmp,NumNet,Iteration)
for IC=1:Iteration
    for NC=1:NumNet
        for K=1:size(P,2)
            Y1=[(USF(P(:,K)'*WI{NC,1})) 1];        
            Yout=(USF(Y1*WO{NC,1}))';

            E=T(:,K)-Yout;
            
            GAMA=(dUSF(Y1*WO{NC,1}))'.*E;            
            tmpG1=(WO{NC,1}*GAMA)';
            tmpGAMA1=tmpG1(1,1:D(2));
            GAMA1=tmpGAMA1.*(dUSF(P(:,K)'*WI{NC,1}));
            
            PWI1=WI{NC,1};
            PWO1=WO{NC,1};

            WI{NC,1}=WI{NC,1}+(ETAI.*P(:,K)*GAMA1)+ALPHA*(WI{NC,1}-WI{NC,2});
            WO{NC,1}=WO{NC,1}+ETAO.*Y1'*GAMA'+ALPHA*(WO{NC,1}-WO{NC,2});

            WI{NC,2}=PWI1;
            WO{NC,2}=PWO1;
        end
        ETAI=ETAI/(1+1/IC);
       testPhase(WI,WO,PT,TT,NTmp,NumNet)
    end
end