Как выбрать значения из списка.Mathematica

Question

У меня есть этот код:

    x = {1, 2, 3, 4, 5}; p = {0.5, 0.3, 0.1, 0.06, 0.04};
Do[
 n = RandomVariate[PoissonDistribution[30]]; M = Table[0, {n}];
 Do[
  U = RandomReal[]; i = 1;
  While[U > Sum[p[[j]], {j, 1, i}], i = i + 1];
  X = x[[i]]; M[[j]] = X;
  , {j, 1, n}];
 Daytotal[k] = M
 , {k, 1, 365}]
W = Table[Total[Daytotal[m]], {m, 1, 365}];
N[Mean[W]]
Histogram[W, Automatic, "PDF"]

И я хочу выбрать из W значения, превышающие 80. Я пробовал все, что знаю, с помощью команды Пока, но яне могу найти результат.

Answer 1

Или

greaterthan80={};
i=1;
While[i<=365,
  If[W[[i]]>80,
    AppendTo[greaterthan80,W[[i]]]
  ];
  i++
];
greaterthan80

или

isitgreater[x_]:=x>80;
greaterthan80=Select[W,isitgreater]

или просто

greaterthan80=Select[W,#>80&]