用Mathematica給寶寶起名字

     老婆有孕6個月了，已經開始考慮寶寶的小衣服、小鞋子了。然而，對於我這個“遊手好閒”的父親的而言，最大的事情莫過於給寶寶起個名字。我們之前有個女兒（就是玩數獨的那個），名叫“吳天笑”。現在是第二胎了，我們沒有違反“人類性別平衡法”動機，所以至今也不知道胎兒的性別。因此我還要做好兩手準備，一個男孩名，另一個女孩名。

 

      從大女兒的名字中或許已包含了我的潛意識中的命名法。“吳”自然是我家的姓。 “天”是吳的下半部分，這個也是要的。“笑”希望找一個和“天”和“吳”下半部分非常相像的字。名字的寓意自然是閤家歡樂，幸福美好......

 

第一步：準備數據庫，首先我調用Mathematica自帶的3755個最常用漢字。 

charList=Drop[Flatten[Table[FromCharacterCode[{i,j},"CP936"],{i,160+16,160+55},{j,161,254}]],-5];

後來我絕的最常用漢字數量太少，乾脆搞個20000漢字庫吧。

 

第二步：將漢字轉換爲數值點矩陣。

單核計算：

pixedMatrix[word_String]:=ImageData[Binarize[Rasterize[Style[word,FontSize-> 15,FontFamily-> "SimSun"]]]];

多核並行計算：

pixedMatrixP[word_String]:=ImageData[Binarize[Rasterize[Style[word,FontSize-> 15,FontFamily-> "SimSun"]]]]; DistributeDefinitions[pixedMatrixP]; timeBefore=AbsoluteTime[]; imageList=ParallelMap[pixedMatrixP,Take[charList,20903]]; timeused=AbsoluteTime[]-timeBefore  

 

第三步：尋找目標最鄰近的字符。舉個例子：“吳”

Image[pixedMatrix["吳"]] pixedMatrix["吳"] // MatrixForm Image[#] & /@ Nearest[imageList, pixedMatrix["吳"], 20]  

我要的是找一個和“吳”的下半部首，“天”相接近的漢字，至於上半部分可以任意。

n=5; Image[target=Join[Table[Table[1,{i,15}],{j,n}],Drop[pixedMatrix["吳"],n]]] convertList=Join[Table[Table[1, {i, 15}], {j, n}],Drop[#,n]]&/@imageList; result=Flatten[Position[convertList,#]&/@Nearest[convertList,target,20]]; finding=DeleteDuplicates[Image[#]&/@(imageList[[#]]&/@result)]  

 

      所以我想，是男孩的話就叫“吳天昊”，是女孩的話就叫“吳天美”或者“吳天芙”。其實在任何一個時代、任何一個國家，每一個孩子的名字，在他們父母的心目中那肯定都是最好的。