from rnnsim.zip by Hossam Abdelbaki
The program can be used in training and testing the Random Neural Network(RNN) models.

prep_wts.m
%   File Name      : prep_wts.m
%   Purpose        : preparing the weights 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 :   ahossam@cs.ucf.edu

%%%%% Function Preparing weights %%%%%%%%%%%%%%%%%%%%%%%%%
wplus = zeros(N_Total,N_Total);
wminus = zeros(N_Total,N_Total);
  
% Initializing the weights 
  %Input --->Hidden weights
for i = 1:N_Input
   for j = (N_Input+1):(N_Input+N_Hidden)
      wplus(i,j)  = RAND_RANGE*rand(1,1);
      wminus(i,j) = RAND_RANGE*rand(1,1);
   end
end
% Hidden ----> Output weights
for i = (N_Input+1):(N_Input+N_Hidden)
  for j = (N_Input+N_Hidden+1):(N_Total)
      wplus(i,j)  = RAND_RANGE*rand(1,1);
      wminus(i,j) = RAND_RANGE*rand(1,1);
   end
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  

Contact us at files@mathworks.com