calc_output.m

随机神经网络工具箱

%   File Name      : calc_output.m
%   Purpose        : Calculating the output of the RNN 
%   Author         : Hossam E. Mostafa Abdelbaki, School of Computer Science, 
%                    University of Centeral Florida (UCF). 
%   Release        : ver. 1.0.
%   Date           : October 1998.
%
%       RNNSIM is a software program available to the user without any 
%   license or royalty fees. Permission is hereby granted to use, copy, 
%   modify, and distribute this software for any purpose. The Author 
%   and UCF give no warranty, express, implied, or statuary for the 
%   software including, without limitation, waranty of merchantibility 
%   and warranty of fitness for a particular purpose. The software 
%   provided hereunder is on an "as is"  basis, and the Author and the 
%   UCF has no obligation to provide maintenance, support, updates, 
%   enhancements, or modifications. 
%
%       RNNSIM  is available for any platform (UNIX, PCWIN, MACHITOCH). 
%   It runs under MATLAB ver. 5.0 or highrer. 
%
%       User feedback, bugs, or software and manual suggestions can 
%   be sent via electronic mail to :   [e-mail]

%%%%%%% FUNCTION: Calc_Output %%%%%%%%%%%
      %calculation of the Actual Output %%%%%%%%
      for i = 1:N_Input
         N(i) = LAMBDA(k,i);
         D(i) = lambda(k,i) + r(i);    
         q(i)=N(i)/D(i);
         if (q(i)>1.0) 
            q(i)=1.0;
         end
      end
     
     for i = (N_Input+1):(N_Input+N_Hidden)
        N(i) = 0.0;
        D(i) = 0.0;
        for j = 1:N_Input
          N(i) = N(i) + q(j) * wplus(j,i);
          D(i) = D(i) + q(j) * wminus(j,i);
        end
        N(i) = N(i)+LAMBDA(k,i);
        D(i) = D(i) + r(i)+lambda(k,i);
        q(i) = N(i)/D(i);
        if(q(i) > 1.0) 
           q(i) = 1.0;
        end
     end
        

     for i = (N_Input+N_Hidden+1):N_Total
        N(i) = 0.0;
        D(i) = 0.0;
         for j = (N_Input+1):(N_Input+N_Hidden)
            N(i) = N(i) + q(j) * wplus(j,i);
            D(i) = D(i) + q(j) * wminus(j,i);
         end
         N(i) = N(i)+LAMBDA(k,i);        
         D(i) = D(i) + r(i) +lambda(k,i);
         q(i) = N(i)/D(i);
         if(q(i) > 1.0) 
            q(i) = 1.0;
         end
     end
   %%%%%%%%%%%%%%%%%% end Calc_Output