研究一个参数方程
发布时间
阅读量：
阅读量
经过长时间的思考，最终出于探究的兴趣，决定将其公开呈现。
其中 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软件进行可视化展示：
全部评论 (0)
还没有任何评论哟~