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

ほとんどのヘルプは大歓迎です！

私はあなたの "T" はあなたがそれを生成する必要があり、その場合には、3Dポイントのリスト、することになっていると思いマルコ

Answer 1

：今

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}ではない。