功能: 一维数据Whittaker平滑降噪

格式: 
DataSmoothWhittaker1D(x)
DataSmoothWhittaker1D(x, r)

x : 一维数据序列
r : 平滑度权重与逼近数据权重比值

说明:
1. 本函数针对一维等间距数据进行平滑.
2. 本函数采样优化方式进行平滑.
3. 函数执行完毕返回平滑数据.

原理:
1. {Whittaker数据平滑算法<http://www.mathsword.com/whittaker-smoother/>}

例子:
x = 1:100;
y = {Sin<矩阵运算\Sin>}(x/10) * 10;
r = {Rand<矩阵运算\Rand>}(2,1,100);
y = y - r;
s = DataSmoothWhittaker1D(y, 1.2);
{Plot<矩阵运算\Plot>}(x,s,x,y)
{<http://www.mathsword.com/wp-content/uploads/2023/04/SmoothWhittaker.png>}