Mathematica三维点插值算法(高维插值,多维插值)

pts = {{0.`, -1.`, 0.`}, {-0.2411`, -0.94`, 
   0.2412`}, {-0.3831`, -0.842`, 0.3798`}, {-0.4355`, -0.715`, 
   0.547`}, {-0.5892`, -0.5859`, 0.5564`}}

Graphics3D[{Red, PointSize[0.03], Point /@ pts, Blue, 
  Line /@ Partition[pts, 2, 1]}]

g[x_, y_] := 
 Evaluate[InterpolatingPolynomial[{{#[[1]], #[[2]]}, #[[3]]} & /@ 
    pts, {x, y}]]
g[x, y] // Expand

ContourPlot[g[x, y], {x, -1, 0}, {y, -1, 0}, 
 Epilog -> {Red, PointSize[0.03], Point[{#[[1]], #[[2]]}] & /@ pts}]