在Mathematica中绘制插值

Question

这显然非常简单，但我找不到我的错误。情节根本没有给我任何分数。

tmax = 1.;
nmax = 10;
deltat = tmax/nmax;
h[t_, s_] := t^2 + s^2;
T = Table[{{n*deltat}, {n*deltat}, h[n*deltat, n*deltat]}, {n, 0, nmax}]
inth = ListInterpolation[T]
Plot3D[inth[s, t], {s, 0, 1}, {t, 0, 1}]

欢迎任何帮助！

马

Answer 1

我认为你的“T”应该是一个3D点列表，在这种情况下你应该用它来生成：

tmax = 1.;
nmax = 10;
deltat = tmax/nmax;
h[t_, s_] := t^2 + s^2;
T = Table[{n*deltat, n*deltat, h[n*deltat, n*deltat]}, {n, 0, nmax}]
inth = ListInterpolation[T]
Plot3D[inth[s, t], {s, 0, 1}, {t, 0, 1}]

现在T [[1]] = {0.，0.，0。}而不是{{0.}，{0.}，0。}和以前一样。