Mathematica: получение табличного решения ОДУ

[Парджеттер]

Уважаемые форумчане!

Имею следующий вопрос.
Я решаю численно дифференциальное уравнение в Mathematica 6.0. При этом можно построить график. А мне нужно получить таблицу с решением (с точками). Я делал так

Table[y[x] /. s, {x, -10, 10, 1}]

Но при этом он мне выдает таблицу следующего вида

{{14126.6}, {14128.}, {14129.4}, {14130.8}, {14132.3}, {14133.7}, {14135.1}, {14136.5}, {14137.8}, {14139.}, {14139.9}, {14140.4}, {14140.1}, {14138.9}, {14136.8}, {14133.7}, {14129.6}, {14124.5}, {14118.4}, {14111.3}, {14103.2}}

т.е. не ряд значений, а ряд законченных элементов. А мне бы надо эту штуку проинтерполировать, предположим, многочленом. А у меня никак не получается к ней обратиться. Точнее, я пытался переписать отсюда элементы в "нормальную" таблицу в виде ряда, но для этого нужно обратиться к конкретному элементу, а как обратиться к элементу такой таблицы, я не знаю.
Не подскажите ли, как мне быть? Или, что я делаю неправильно?

[Парджеттер]

Вопрос решен

Благодарю за внимание.

[Leierkastenmann]

Что-то не очень понятна формулировка. Нужна таблица вида

{{x1,f[x1],...{xn,f[xn]}}

правильно я понял? Почему бы тогда не сделать простенькое действие и не написать что-то вроде

Table[{x, First[y[x] /. s]}, {x, -10, 10, 1}]

Ну или наваять функцию, которая решает уравнение и преобразует его в таблицу, в общем-то достаточно простая функция получится.

[Парджеттер]

Да, Вы правы, вопрос элементарный. Это просто я впал в ступор. Даже самому как-то неудобно, что спрашивал такую глупость.