function f = genVals(N, p, vals)% f = genVals(N)%%  Used to generate N random varibles.%% Created by Bogdan Timus% $Id:$% Process input argumentsif 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 variablesM = length(vals);f = vals( sum( repmat( rand(N,1), 1, M ) >= ...               repmat( cumsum( p(1:M) ), N, 1 ), 2));