function[gsrv1,gsrv2]=gngauss(m,sgma)
if nargin==0,
    m=0;sgma=1;
elseif nargin==1;
sgma=5;
u=rand;                             %均勻分布隨機變量
z=sgma*(sqrt(2*log(1/(1-u))));      %瑞利分布隨機變量
u=rand;
gsrv1=m+z*cos(2*pi*u);              %高斯分布隨機變量
gsrv2=m+z*sin(2*pi*u);
end;