Поиск распределения частоты употребления английских слов
Посчитайте употребление слов в Конституции США.
In[1]:=

text = ExampleData[{"Text", "USConstitution"}, "Words"];
wordCount = Values[Counts[text]];
Найдите простое распределение для подсчёта слов.
In[2]:=

e\[ScriptCapitalD] = FindDistribution[wordCount]
Out[2]=

Сравните полученное распределение с подсчётами слов.
код на языке Wolfram Language целиком
Out[3]=
