randn.sci

general toolbox......

function y = randn(n,p)

// randn - Gaussian number generator
//
// y = randn(n,p);
// y = randn([n p]);
//
//  Copyright (c) 2008 Gabriel Peyre


if isstr(n)
y = 0;
return;
end

if argn(2)==2
    n = [n p];
end


y = mtlb_randn(n);

endfunction