Table[r = Print[100*Log[(-1)/(RandomReal[] - 1)]], {i, 100}]
OR
Do[r = Print[100*Log[(-1)/(RandomReal[] - 1)]], {i, 100}]
I get 100 iterations of this expression. I need to find the mean/average of these iterations. How can I do this?
Beautiful! Thank you.
But
RandomReal[1, 100]
returns 100 random numbers between 0 and 1.
RandomReal[{1, 100}]
returns a single random number between 1 and 100.
If the "100" of "100 iterations" is the same as the "100" in {i,100}, then the following will get you the mean:
Mean[100 Log[-1/(RandomReal[1, 100] - 1)]]
Or are there 100 iterations of the 100 random draws?
Picture of what's going on...
