Berechnungen mit mehrsprachigen Wortlisten

Vergleichen Sie die Verteilung der Anzahl von Zeichen pro Wort in unterschiedlichen Sprachen.

In[1]:=

languages = {"German", "English", "Italian", "Dutch", "Russian"};

Ermitteln Sie die Liste verfügbarer Wörter für diese Sprachen und fassen Sie diese in einer Assoziation zusammen.

In[2]:=

words = Association[# -> WordList[Language -> #] & /@ languages];

Berechnen Sie die Länge jedes dieser Wörter.

In[3]:=

wordLengths = StringLength /@ words;

Dies sind die Mindest- und Maximallängen:

In[4]:=

MinMax /@ wordLengths

Out[4]=

Visualisieren Sie überlappende Histogramme relativer Häufigkeiten in jeder Sprache. Russisch und Englisch haben einen höheren Anteil kürzerer Wörter, während Niederländisch und Deutsch deutlich längere Wörter verzeichnen.

In[5]:=

Histogram[wordLengths, Automatic, "PDF", ChartLegends -> Automatic]

Out[5]=

Kombinieren Sie Histogramme, um die absolute Wortlänge aller Sprachen zu visualisieren.

In[6]:=

Histogram[wordLengths, ChartLegends -> Automatic, ChartLayout -> "Stacked"]

Out[6]=