random0.m

来自「学习Matlab循环语句的好例子」· M 代码 · 共 41 行

function ran=random0(n,m)
%RANDOM0 Generate uniform random numbers in [0,1]
%Function RANDOM0 generates an array of uniform random numbers in the range
%[0,1].The usage is:
%
%random0(n)  ---Generate an n*n array
%random0(m,m) ----generate an n*m array

%Define variables:
% ii     ----index variable
% ISEED   ---random number seed (global)
%jj    ------index variable
% m   ---number of columns
% msg    ----error message
% n ----number of rows
% ran -----output array

% Record of revisions:
%   Date         programmer        Description 
% ==========   =============    ===============
%  12/16/98      S.J.Chapman     Original code
% Declare global values
global ISEED
% check for a legal of input arguments
msg=nargchk(1,2,nargin);
error(msg);

% if the m argument is missing,set it to n 
if nargin<2
    m=n;
end
% Initialize the output array
ran =zeros(n,m);
% now calculate random values
for ii=1:n
    for jj=1:m
        ISEED=mod(8121*ISEED+28441,134456);
        ran(ii,jj)=ISEED/134456;
    end
end