Mathematica中的PopularCurve手绘卡通图片的可视化

信息来源

从@WolframChina 微博 上看到这样一条信息：

自己的功课

但是直接用：

EntityValue["PopularCurve","Entities"]

只是显示一个很长的远超过3500个(目前应该是3750)的曲线的名字，并不打印图片信息。好玩的还是图片啊。

找个人问了下，原来要这样：

Print[Labeled @@ EntityValue[#, {"Image", "Name"}]] & /@  EntityValue["PopularCurve", "Entities"];

只要电脑的内存足够大，它会按照这些曲线名字的字母表顺序挨个给显示出来。这里取一部分欣赏（画得真丑，不过如果知道每个图形都有一个参数方程的话就不意外了）：

这个命令的缺陷是始终需要从网络下载数据，所以效率很低，而且可能出现不响应的情况。

补充说明

不过，下载了2000个不到的图片之后，发现，单单图片就有2GB的大小，相当于整个10.1版本软件的体积。用下载的方式替代打包在软件中也算是一种正确的处理方式，奈何服务器不知道在哪里，连接总有问题也没办法。

这是最繁琐的过程。所以导致进度缓慢。如果不成功的比例达到30%以上，不值得手动，不如索性全部重来，又是漫长的等待。所以如果Wolfram的服务器给力, 或者提供类似断点续传的单独的standalone的offline的特定数据包的下载,会是一种福音。手动处理的关键是手动处理的自动化，如何handle time out exception之类