未知の言語からの単語の翻訳

ある言語から文字列を取り出す．

In[1]:=

string = "Danke";

この単語が何語か識別する．

In[2]:=

origin = LanguageIdentify[string]

Out[2]=

別の言語に翻訳する．

In[3]:=

WordTranslation[string, origin -> Entity["Language", "Spanish"]]

Out[3]=

言語のリストを取り，この単語を複数の言語に翻訳して，その結果を見栄えのするワードクラウドを作る．

In[4]:=

langs = {Entity["Language", "Spanish"], Entity["Language", "English"], Entity["Language", "Russian"], Entity["Language", "Danish"], Entity["Language", "Korean"]}; Manipulate[ WordCloud[ Flatten[TextWords /@ WordTranslation[string, LanguageIdentify[string] -> language]], ImageSize -> {512, 256}], {language, langs}]

動画を開始

動画を中止