怎么用Mathematica研究拉格朗日插值

1、首先，给定n=3，作为最简单的例子，来进行说明。data={{x1,y1},{x2,y2},{x3,y3}}

3、求出n的值：n=Length@data

5、把上述代码整合为一个自定义函数：LagrangePol鲻戟缒男ynomial[data_,x_]/;MatrixQ[data]:= Module[{n=Le荏鱿胫协ngth[data], xx,yy}, {xx,yy}=Transpose@data; Sum[Product[(x-xx[[i]])/(-xx[[i]]+xx[[j]]), {i,Complement[Range[n],{j}]}]yy[[j]],{j,n}] ]