是个视频。其中的函数式我就懒得抄了，谁有兴趣就弄一下：
weibo.com/1742250074/GtrzzrRX5

说实话，试了前三个函数，画出来的都跟视频中的不一样。

，我差不多有两个月没有打开Mathematica啦，今天打开来输入一波，比较感兴趣的是第十个振动的实现，非振动状态下ContourPlot[ x==(1.5Exp[-.62(y-.16)^2])/(1+Exp[-20(5y-1)])+((1.5+.8(y-.2)^3)(1+Exp[20(5y-1)])^-1)/(1+Exp[-(100(y+1)-16)])+(.2(Exp[-(y+1)^2]+1))/(1+Exp[100(y-1)-16])+.1/Exp[2(10y-1.2)^4],{x,0,2},{y,-3,3},PlotPoints->50,AspectRatio->Automatic]，嗯，振动状态下是Manipulate[ContourPlot[ {x=(1.5Exp[(.12Sin[t]-.5)(y填空)])/(1+Exp[-2015y+填空]),x==0.1E^(-20000 (.12+y)^4)+(1.5E^(-.62 (-.16+y)^2))/(1+E^(20-100 y))+(.2 (1+E^-(1+y)^2))/(1+E^(-116+100 y))+(1.5 +.8(-.2+y)^3)/((1+E^(-84-100 y)) (1+E^(-20+100 y)))},{x,0,20},{y,-3,3},(*PlotPoints\[Rule]50,*)AspectRatio->Automatic],{t,0,3.14}]，比较**的是x=f(t)的形式视频中没有完整给出，尝试猜了些形式也没实现。那么问题来了，哪位老哥老姐可以找到完整的函数，或者完成上面的填空呢？

〇疼的我到头来把能看得清的9个都画了。（第8位实在太糊了，而且那凑得也太暴力了吧，一点美感都没有。）
为了方便大家评论我就一楼一图吧。
首先是第1个。上面也说了，视频里给错了它的定义域：

第2位明治大学的那个“点”应该是另加的。点的位置经过试探，推测为1.5：

第3位的表达式里掉了参数，经试探，应该是指数项前掉了0.2：

第4位也提囧的。说明中特地说了[x]表示高斯记号（即向下取整），但从图形来看，他们画图的时候没有把向下取整编进去……如果编入的话，图形会呈现出〇晕，视频里没有：

第5位没什么好说的，唯一值得一提的，大概是视频里相应的表达式比较糊，但好在构造思路明确，所以看不清的部分容易推测：

6位也没啥，就是定义域要调调：

带锁骨的第7位，纵轴其实是-x……：

9位也没啥：

重磅第10位。因为在网上可以找到LaTeX版本（网址见4楼），所以录入时就偷了下懒：
近期百度好像限制了GIF的上传，就不贴动态的了。

……我误操作把 @jiaoeyushushu 的帖给删了，并且现在百度抽风，导致帖子恢复不了……这里临时补一下 jiaoeyushushu 的帖子的主要内容：
算法来自：
http://www.alloyteam.com/2015/08/fu-li-ru-yao-dong-hua-chu-tan/#comments
liquefy[pt_] :=
With[{c = {0.479, 0.295}, m = {0.379, 0.5}, r = .2},
Module[{disxc = Norm[pt - c]^2, dismc = (m - c)},
If[disxc <= r^2, pt - dismc ((r^2 - disxc)/(r^2 - disxc + Norm[dismc]^2))^2, pt]]];
Export["Breast.gif", {img, ImageTransformation[img, liquefy]},
AnimationRepetitions -> Infinity, "DisplayDurations" -> .25]

jiaoeyushushu 的函数效果：