Wolfram在线文档的遗产页里有这么一个有趣的页面：
reference.wolfram.com/legacy/flash/
它以flash的形式表现了部分核心函数的工作原理，还是满形象的，但是……这个页面访问速度太慢了，有没有办法把其中的flash下载下来？
话说，既然这个页面属于reference.wolfram，那是否意味着过去的某一版Mathematica是自带这些Flash的？

CreateDirectory["D:/Mathematica/演示动画"];
URLDownload[
StringTemplate[
"http://reference.wolfram.com/legacy/flash/animations/`1`.swf"]\
[#], StringTemplate["D:/Mathematica/演示动画/`1`.swf"][#]] & /@
StringCases[
Import["http://reference.wolfram.com/legacy/flash/", "Text"],
RegularExpression["animations/(\\w+).html"] ->
"$1"]; // AbsoluteTiming
我这20秒就下完了，传个网盘：[无效] https://pan.baidu.com/s/1jIhBEZG