Wolfram 语言™

书写脚本和字母表

Alphabet 函数返回给定语言、字母表或书写脚本的字母列表.

In[1]:=

Alphabet[Entity["Alphabet", "English::ff9sd"]]

Out[1]=

In[2]:=

Alphabet[Entity["Alphabet", "SerbianCyrillic::933zb"]]

Out[2]=

In[3]:=

Alphabet[Entity["Alphabet", "Hindi::7cxj8"]]

Out[3]=

书写脚本的字母表一般指被该书写脚本字母表所使用的最常用的基本字母.

In[4]:=

Alphabet[Entity["WritingScript", "Latin::6tr5q"]]

Out[4]=

In[5]:=

Alphabet[Entity["WritingScript", "Arabic::3y92v"]]

Out[5]=

In[6]:=

Alphabet[Entity["WritingScript", "Devanagari::t85j5"]]

Out[6]=

语言的字母表通常与该语言中使用的主要字母表相同.

In[7]:=

Alphabet[Entity["Language", "Georgian"]]

Out[7]=

如果一种语言使用一种以上字母表，应用 Alphabet 将会返回该语言使用的最常见字母表.

In[8]:=

Alphabet[Entity["Language", "Serbian"]]

Out[8]=

字母表不使用其书写脚本中的所有的字母，这是很常见的.

In[9]:=

Entity["Language", "Russian"]["WritingScripts"]

Out[9]=

In[10]:=

Alphabet[Entity["WritingScript", "Cyrillic::73gxm"]]

Out[10]=

In[11]:=

Alphabet[Entity["Language", "Russian"]]

Out[11]=

俄语或西里尔字母（俄语的书写脚本）含有不同的字母组.

In[12]:=

Complement[Alphabet[Entity["WritingScript", "Cyrillic::73gxm"]], Alphabet[Entity["Language", "Russian"]]]

Out[12]=

拉丁语和拉丁字母不能与拉丁书写脚本混淆.

In[13]:=

Alphabet[Entity["Language", "Latin"]]

Out[13]=

古典拉丁字母表中不包括少数（现在常见）书写脚本文字.

In[14]:=

Complement[Alphabet[Entity["WritingScript", "Latin::6tr5q"]], Alphabet[Entity["Alphabet", "Latin::x7687"]]]

Out[14]=

并且在这种情况中，如果输入为简单的 "Latin" 字符串，将推测书写脚本.

In[15]:=

Alphabet["Latin"]

Out[15]=

而且，很多字母表包括变音符号、连字和双字符作为其基本字母组.

In[16]:=

Alphabet[Entity["Alphabet", "Slovak::kj62d"]]

Out[16]=

可以构建某些字母表和其书写脚本差异的表格.

In[17]:=

TextGrid[With[{alph = {Entity["Alphabet", "Bodo::qr2jm"], Entity["Alphabet", "Esperanto::8q9rq"], Entity["Alphabet", "Faroese::4w3x2"], Entity["Alphabet", "Gikuyu::m35j4"], Entity["Alphabet", "Konkani::qxvq5"], Entity["Alphabet", "Icelandic::89f83"], Entity["Alphabet", "Latin::x7687"], Entity["Alphabet", "Osetin::bd2zw"], Entity["Alphabet", "Russian::9qdvh"], Entity["Alphabet", "Slovak::kj62d"], Entity["Alphabet", "Spanish::stxh4"], Entity["Alphabet", "UzbekArab::6zds4"]}}, Prepend[With[{ws = First[#[EntityProperty["Alphabet", "WritingScripts"]]]}, {#, ws, Row[Complement[Alphabet[#], Alphabet[ws]], ","], Row[Complement[Alphabet[ws], Alphabet[#]], ","]}] & /@ alph, {Style["Alphabet", Bold], Style["Writing script", Bold], Style["Extra letters to its writing script", Bold], Style["Writing script letters missing in the alphabet", Bold]}]], Frame -> All]

Out[17]=