RandomMatrix:= {{2 Random[]-1,2 Random[]-1},{2 Random[]-1,2 Random[]-1}};
TryItOut:=Eigenvalues[RandomMatrix];
Experiment[n_]:= Module[{ellip=0,hyper=0},
  Do[If[Im[TryItOut]=={0,0},hyper=hyper+1,ellip=ellip+1],{n}];
  Print["Probability of ellipticity in this run  ", N[ellip/n]]];
Experiment[1000]

