2020 Wolfram 庚子鼠一行程式碼競賽揭曉
- 2020 年 3 月 26 日
- 筆記
謝謝大家的參與！本次所有參加者均獲取印有 Spiky 或 Wolfie 外套一件！查看並下載源程式碼：https://www.wolframcloud.com/obj/zh/Published/WolframRatsChinese.nb
程成
c = Circle; Graphics[{Thick, Line[{{-{4, 6}, {4, -6}}, {-{4, 7}, .9 b, {4, -7}}}], c /@ {a = {2, 0}, -a}, Disk[.6 b, {3, 4}], White, c[-{1, 2}, .6], c[{1, -2}, .6], c[b = {0, -6}, .1 {5, 2}]}]
牛角包大俠：群鼠拜年啦，每個字的像素都是一張鼠的圖片
s = #~ImageResize~{32, 32} & /@ WebImageSearch@"鼠"; ImageAssemble[ ImageData@Binarize@Rasterize[鼠年大吉] /. {1 -> 1 + 0 s[[1]], 0 :> RandomChoice@s}]
徐恩嶠 :《元胞米奇鼠的生命遊戲》 – 元胞自動機是Mathematica掌門人的必殺絕技，康威生命遊戲的規則也十分經典。
ListAnimate[ ArrayPlot /@ CellularAutomaton["GameOfLife", ImageData@EdgeDetect[=[mickey mouse]@"Image", 1, .07], 2020]~MovingAverage~2]
吳飛：《 畫個米老鼠》——本作品基於Wolfram Alpha 引擎，下載參數曲線方程，並動態的畫個米老鼠。
m = WolframAlpha["Mickey curve eq", "Result"]; Animate[ParametricPlot[m[[2]], {[FormalT], 0, d}, PlotRange -> 6^4, Axes -> None], {d, .01, 2 Pi}]
吳飛：《誰動了我的乳酪？》 源於美國作家斯賓塞•約翰遜創作的一個寓言故事。書中主要講述兩隻小老鼠 「嗅嗅」、 「匆匆」 找尋乳酪的故事。本作品基於三周期極小曲面（Schwartz P）不等式方程繪製了一塊令」鼠」垂涎欲滴的乳酪。
RegionPlot3D[Sin[4x]+Sin[4y]+Sin[4z]<=.5,{x,0,[Pi]},{y,0,[Pi]},{z,0,[Pi]},Mesh->None,PlotStyle->Directive[Yellow,Specularity[White,9]]]
李想：【閃耀動感的米奇】2020鼠年怎能少了米老鼠相伴?
Insert[Entity[p = "PopularCurve", "MickeyMouseCurve"]@ EntityProperty[p, "ImagePebbleStoned"], Dynamic@Hue@Clock[], {1, 1}]
李想：【藝術之鼠】 一小段小白鼠GIF動畫, 利用影像風格遷移將 13 副名畫生成了另一段動畫, 同時顯示2副原圖及生成圖片
{u, v} = Import["http://j.mp/30" <> #, "ImageList"] & /@ {"FMczF", "Jbz3K"} ListAnimate[{m = u[[#1]], n = v[[#1]], ImageRestyle[m, n]} & /@ Range[39]]
