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}]