谢谢大家的参与!本次所有参加者均获取印有 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]]