www.pudn.com > matlab±à³Ì.zip > seed.m, change:1999-03-10,size:716b

function seed(new_seed) 
%SEED Set new seed for function RANDOM0 
% Function SEED sets a new seed for function  
% RANDOM0.  The new seed should be a positive 
% integer. 
  
% Define variables: 
%   ISEED    -- Random number seed (global) 
%   new_seed -- New seed 
 
%  Record of revisions: 
%      Date       Programmer          Description of change 
%      ====       ==========          ===================== 
%    12/16/98    S. J. Chapman        Original code 
 
% Declare globl values 
global ISEED            % Seed for random number generator 
 
 
% Check for a legal number of input arguments. 
msg = nargchk(1,1,nargin); 
error(msg); 
 
% Save seed 
new_seed = round(new_seed); 
ISEED = abs(new_seed);