平滑三次样条插值,动态演示,mathematica源代码