Решается диф.ур.
Код:
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.]
а график естественно не строит...
Конечно, здесь функция двух меременных и двумерный график получить проблематично, но хотя бы значения функции в точках то должно выдавать.