genvals.m

来自「fading 在无线中的应用」· M 代码 · 共 31 行

function f = genVals(N, p, vals)
% f = genVals(N)
%
%  Used to generate N random varibles.
%

% Created by Bogdan Timus
% $Id:$

% Process input arguments
if nargin < 3, 
  vals = [1;pi;4]; 
else
  vals = reshape(vals,prod(size(vals)),1);
end;
if nargin < 2, 
  p = [0 0.3 0.3 0.4];
else
  p = [0, reshape(p,1,prod(size(p)))];
end;
if nargin==0,
  N = 1;
else
  N = N(1);
end;


% Generate the random variables
M = length(vals);
f = vals( sum( repmat( rand(N,1), 1, M ) >= ...
               repmat( cumsum( p(1:M) ), N, 1 ), 2));