Mathematica: уравнение с первообразными/производными

[spyphy]

Подскажите как выполнить вычисления такого вида:

Цитата:

f = Integrate[x^2, x];
NSolve[{f[t] == 9}, t]
{{t -> InverseFunction[x^3/3, 1, 1][9.]}}

или вот хотя бы такого

Цитата:

g = D[x^4, x];
NSolve[{g[t] == 2}, t]
{{t -> InverseFunction[4 x^3, 1, 1][2.]}}

текущий результат не удовлетворяет.

[Aritaborian]

Слышь, Бивис, его не удовлетворяет. spyphy, не насилуйте систему, почитайте справку хотя бы немного.

[Markiyan Hirnyk]

Такой подход работает:

f[x_] := Integrate[x^2, x];
NSolve[{f[t] == 9}, t, Reals]
{{t -> 3.}}

Увы, в справке к NSolve он не описан.

[spyphy]

Да, вроде посчитало сейчас. Еще проблема осталась, что график первообразной не строит.

f[x_] := Integrate[x^2, x];
Plot[f[t], {t, 1, 10}]

(пустой график на выходе).
Mathematica 7.0 стоит.

[Markiyan Hirnyk]

spyphy
Работаю с 13.2 на Виндовс 10. Касательно графиков, попробуйте

f1[x_] := Integrate[x^2, x];
Plot[Evaluate[f1[x]], {x, 1, 10}]

Последнее описано в справке к Plot (см. Neat Examples там).

PS. Пожалуйста выражайтесь четко и ясно: "вроде" означает, что результат сомнительный. Вы меня поняли?

[spyphy]

Markiyan Hirnyk в сообщении #1586171 писал(а):

Plot[Evaluate[f1[x]], {x, 1, 10}]

Да, спасибо, график построился.
У меня возвращает результат

{{t -> -1.5 + 2.59808 I}, {t -> -1.5 - 2.59808 I}, {t -> 3.}}

несмотря на Reals. Но это okay.

[Ende]

Markiyan Hirnyk в сообщении #1586171 писал(а):

PS. Пожалуйста выражайтесь четко и ясно: "вроде" означает, что результат сомнительный. Вы меня поняли?

Markiyan Hirnyk, сбавьте тон. Вы тут не начальник, а топикстартер не подчиненный. Предупреждение за хамство.

Aritaborian в сообщении #1586165 писал(а):

Слышь, Бивис, его не удовлетворяет.

Aritaborian, давайте тоже без Бивиса.