%Count the number of real eigenvalues of a random mxm 
%Gaussian matrix
clear all
close all
N=1000;
m=100;
vec=zeros(m,1);
for i=1:N
    vec(i)=num_real_eigenvalues(randn(m));
end
hist(vec)
mean(vec)