兼职催奶服务开通中，敬请期待

之前发了这个帖子

犹豫了很久，只是出于好奇的目的，还是把它公布出来吧。

$$\left\{\quad \begin{array}{rcl} x&=& 2.10526 (0.5275 -0.15\; t) \cos{s}\cdot \sin {s}\cdot \ln \left| s\right|\\[12pt] y&=& \frac{t-0.2375}{3}-\left| s\right| ^t \sqrt{\cos {s}} \\ \end{array} \right.$$

其中 $s\in[-1,0]$ 是曲线长度相关的参数；$t\in[0.35,0.82]$是表达曲线形状变化的时间参数的变量。

从而可以动态表示为：

lb=0.35;ub=0.825;α=0.85;
list=Table[ParametricPlot[{((ub-α lb-(1-α)b)/(ub-lb))Sin@t Cos@t Log@Abs@t ,(b-(ub-lb)/2)/3-(Abs@t)^b Sqrt[Cos@t]},{t,-1,0},Axes->None,Frame->None,PlotPoints->150,PlotRange->{{0,0.35},{-0.81,(ub-lb)/2.65}},ImageSize->300,AspectRatio->2.3]/.Line[l_List]:>{Directive[EdgeForm[Opacity[1,Red]],Opacity[0.2,Red]],Polygon[l]},{b,lb,ub,(ub-lb)/14}];
ListAnimate[#,DefaultDuration->1]&@Join[list[[1;;-2]],Reverse@list]

用Geogebra可视化出来：

随后真的进修了专职催奶师