f_randinit.asv

来自「digital signal processing常用工具箱」· ASV 代码 · 共 23 行

function f_randinit (s)

%F_RANDINIT: Initialize random number generator using seed 
%-----------------------------------------------------------------------
% Usage:       f_randinit (s)
%
% Description: Initialize the random number generator with a seed
%
% Inputs:      s = an integer seed which selects a random
%                  sequence.  If seed <= 0, a random seed
%                  based on the time of day is selected.
%
% See also:    f_randu, f_randg
%-----------------------------------------------------------------------
   if s > 0
      rand ('state',s)
   else
      rand ('state',sum(100*clock))
   end
%-----------------------------------------------------------------------