Matrix67 |
2008-8-07 5:22 | 
Jul
8
Jun
21
哈哈，我考完啦~~~非常happy地上来更新~~
上图是在Wiltshire的Wroughton附近出现的麦田圈，被称为是目前“最复杂的”麦田圈图形。天体物理学家Mike Reed最近发现，这个麦田圈的图案是一个十进制圆周率的图形编码。这对于麦田圈之谜的研究是一个重大的突破。
May
22
May
19
Wolfram的Blog上更新了一段非常牛的Mathematica代码，真的让我大开眼界。只需要三行代码，你就可以自己做一个马赛克拼图。
imagePool = Map[With[{i = Import[#]}, {i, Mean[Flatten[N[i[[1, 1]]], 1]]}] &, FileNames["Pool/*.jpg"]];
closeMatch[c_] := RandomChoice[Take[SortBy[imagePool, Norm[c - #[[2]]] &], 20]][[1]];
Grid[Reverse[Map[closeMatch, Import["MasterImage.tif"][[1, 1]], {2}]], Spacings -> {0, 0}]
其中，"Pool/*.jpg"是你的图库，我估计最少也得有几百张吧。我用Photoshop把我的collection全部处理成了35x35的小图；为了让最终效果更佳，我特地把它们全部处理成单色的，并且减小了对比度。"MasterImage.tif"是你的目标图片，Mathematica会把这个图片中的每一个像素用图库中一个合适的图来代替。我把我的照片剪裁了一下，然后压成19x22的大小。Mathematica首先把所有照片以及每个照片的RGB值的中位数存成一个list，函数closeMatch将图片按照RGB值的均方根排序，然后随机从头20个中选出一个。第三行用Grid函数输出我们所要的马赛克拼图。最后我们就得到了——由众MM图所组成的Matrix67的肖像画！！如果你还看不出来的话，站远点儿眯着眼睛就能看出来了。
