使用mathematica写一个斗图表情树

首先找点表情图，比如
也可以把截图直接粘入mathematica中

然后使用 图像分割函数ImagePartition处理下图片

随机选择分割后的表情

ran[image_] := RandomChoice[image];

然后用树输出分割后的表情

num = 23;
TreeGraph[Flatten[Table[{
     i -> (2 i + j - 1)}, {
     j, 2}, {
     i, num}]], 
 VertexShape -> Table[i -> ran[1.2 image], {
     i, num*2 + 1}], 
 VertexSize -> 1, DirectedEdges -> True, ImageSize -> Full]

输出效果

当num>23时，显示将不再是二叉树

可以尝试用mathematica生成gif动图