基于ExcelVBA自定义函数的线性插值Lagrange插.ppt

基于Excel单元格的线性插值、Lagrange插值基于Excel单元格的线性插值、Lagrange插值**基于ExcelVBA自定义函数的线性插值、Lagrange插值*基于Excel单元格的线性插值、Lagrange插值*1、线性插值计算式2、Lagrange多项式(分段)插值法在基于Excel单元格采用线性插值时操作相对较方便，但在基于Excel单元格进行Lagrange插值时操作有点麻烦，容易出错！解决方法：基于ExcelVBA采用自定义函数方法进行相应的插值*基于Excel单元格的线性插值、Lagrange插值*ExcelVBA自定义函数内插①LineIn自定义函数(线性内插)PublicFunctionLineIn(Y2,y1,X2,x1,x)AsDoubleLineIn=y1+(Y2-y1)/(X2-x1)*(x-x1)EndFunction②LagrangeIn自定义函数(Lagrange内插)PublicFunctionLagrangeIn(Y2,y1,y0,X2,x1,x0,x)AsDoubleDimA1,A2,A3AsDoubleA1=y0*(x-x1)*(x-X2)/(x0-x1)/(x0-X2)A2=y1*(x-x0)*(x-X2)/(x1-x0)/(x1-X2)A3=Y2*(x-x0)*(x-x1)/(X2-x0)/(X2-x1)LagrangeIn=A1+A2+A3EndFunction应化1351*聚物1221**基于Excel单元格的线性插值、Lagrange插值基于Excel单元格的线性插值、Lagrange插值应化1351*聚物1221**