не могу извлечь данные из InterpolatingFunction[]

[spyphy]

Решается диф.ур.

s = NDSolve[{ D[u[x, t],t] == 1*D[u[x, t], x, x], u[0, t] == 1, u[1, t] == 1, u[x, 0] == 2}, u, {x, 0, 1}, {t, 0, 1}]
N[u[0, 0]]
Plot[u[0, t], {t, 0, 1}]

На что Математика-5.2 выдает

Цитата:

{{u -> InterpolatingFunction[{{0., 1.}, {0., 1.}}, <>]}}
u[0., 0.]

а график естественно не строит...
Конечно, здесь функция двух меременных и двумерный график получить проблематично, но хотя бы значения функции в точках то должно выдавать.

[Leierkastenmann]

Чтобы график построить надо написать так

Plot3D[u[x, t] /. s[[1]], {x, 0, 1}, {t, 0, 1}]

а чтобы значение получить

u[x, t] /. s[[1]]/.{x->0,t->0}