Если проблема ещё актуальна, то как-то так:
inter = First[y /. NDSolve[{y'[x] + y[x] == 2, y[0] == 0}, y, {x, 0, 10}]]
Plot[{x*inter'[x]}, {x, 0, 10}]

(Reply to this) (Thread)

Спасибо! Эта уже нет, но актуальны другие.
Если не разберусь, спрошу Вас, ладно?

(Reply to this) (Parent)