User Portlet User Portlet

Discussions
The following code is correct but is highly inefficient: data2 = RandomVariate[NormalDistribution[0, 1], 10^6]; MyList2 = Table[Mean[Take[data2, i]], {i, Length[data2]}]; Is there a concise way of doing this more efficiently?
Evaluating the following expression where the LogNormal distribution has second parameter = 0.2 takes a couple of seconds on my computer: [mcode]Mean[TransformedDistribution[Abs[x - 100]/Max[x, 100], x \[Distributed]...