function y = randn(n,p)// randn - Gaussian number generator//// y = randn(n,p);// y = randn([n p]);////  Copyright (c) 2008 Gabriel Peyreif isstr(n)y = 0;return;endif argn(2)==2    n = [n p];endy = mtlb_randn(n);endfunction