Wald's Equation

Author

Eric W. Weisstein
February 29, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Statistics/WaldsEquation.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/WaldsEquation.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Numerical Verification

Expected

11/2 .5

Correct

Do[Print[{i,Mean[Plus@@@Table[Table[Random[],{Random[Integer,{1,10}]}],{10^5}]]}],{i,10}]

Buggy

Do[Print[{i,Mean[Plus@@@Table[Random[],{10^5},{Random[Integer,{1,10}]}]]}],{i,10}]

mean[l_]:=Plus@@l/Length[l]

Table[mean[Plus@@@Table[Random[],{10^5},{Random[Integer,{1,10}]}]],{20}]

l=Table[Mean[Plus@@@Table[Random[],{10^5},{Random[Integer,{1,10}]}]],{20}]