Mathematica通过一系列点拟合B样条函数的方法

1、给出一系列平面上的点：a = RandomReal[{-5, 5}, {36, 2}]

3、函数的定义域是0到1；函数的输出值是一个二元向量：f[0.366]

5、加画f的图像：Show[Graphics[{Red, Point[a], Green, Line[a柯计瓤绘]}, Axes -> True],ParametricPlot[f[t], {t, 0, 1}, PlotStyle -> Blue]]

7、拟合出B样条函数f，但是不封闭：f = BSplineFunction[a, SplineClosed -> False]

9、拟合封闭的B样条函数f：f = BSplineFunction[a, SplineClosed -> True]