Exponenta.ru

Это несложно: restart; x := [1,2,3,4,5,6,7,8,9,10]: y:= [2,5,3,8,5,4.3,4,6,3,4]: xy:=zip(`[]`, x, y); plots:-animate(plot,[xy[1..floor(i)], color=red, thickness=2, view=[0..10,0..10]], i=1..10); https://d.radikal.ru/d31/1805/51/e93cc4f1c5b6.gif

Очевидно, что приведённое Вами решение ошибочно.

Программу написать несложно, но вся проблема в том, что при этих данных поезд вообще не тронется. Если мы подставим в формулу для R начальную скорость v=0 , то получим R=100 т или 100000 кГ . Чтобы поезд начал движение тяга должна быть больше этой величины. Я взял F=107000 кГ . restart; R:=(2.5+0.05...

Интересная проблема! Вероятно это связано с некоторыми специфическими вычислительными правилами в процедурах. Задайте свой вопрос на mapleprimes.com . Вот способ обойти проблему, используя команду unapply для задания процедуры и команду piecewise вместо if .. end if . restart; F := 8*y^2*(3*R^2+2*y^...

Вот код в Maple, решающий проблему: restart; Eq:=diff(m(t),t)=k*m(t); inc:=m(0)=a; sol:=dsolve({Eq,inc}, m(t)); k:=solve(subs([t=1,m(t)=2*a],sol), k); Sol:=unapply(simplify(eval(m(t),sol)), t); Sol(3)/a; # Ответ https://c.radikal.ru/c42/1805/de/10aedd913f68.png

Для вашей проблемы понятие крайней точки множества связано с геометрической интерпретацией задачи линейного программирования. Грубо говоря - это вершины некоторого многомерного многогранника (у Вас - восьмимерного). Почитайте http://eps.dvo.ru/~shamray/lp/lecture/expoint_in_lp.pdf где описан и алгор...

Начните с написания матрицы этого оператора.

А дальше просто накладываете на эти корни те условия, которые прописаны в вашей задаче и решаете полученную систему. Конечно решать систему не обязательно вручную. Вот код для решения в Мэйпл: restart; factor(x^3-(4+d)*x^2+5*d*x-d^2); a,b,c:=solve(x^3-(4+d)*x^2+5*d*x-d^2, x); Sol:=solve(sqrt(a)+sqrt...

Левую часть уравнения можно легко разложить на множители. Дальнейшее очевидно.

Для ввода матрицы нет необходимости вызывать какие-либо пакеты. Ниже в примере показан простейший способ ввода матрицы с клавиатуры.

<1,2,3; 4,5,6; 7,8,9>;

Неравенство 79^(3/5)+1900^(3/5) > 1979^(3/5) легко доказывается на основе следующего результата: для любой положительной и выпуклой вверх функции f(x) и любых a>0 , b>0 справедливо неравенство f(a + b) < f(a) + f(b ) , что очевидно из рисунка https://d.radikal.ru/d13/1803/8b/60140a8feb82.png В вашем...

Вот 3 способа решить проблему. Первый способ Вам уже указал уважаемый M. Hirnyk. Y := {x^2, sqrt(x), 1/(1+x^2), exp(-x), x^3+2*x-1, ln(x+1)}; select(y->eval(y,x=0)=0, Y); # Первый способ remove(y->eval(y,x=0)<>0, Y); # Второй способ {seq(`if`(eval(y,x=0)=0,y,NULL), y=Y)}; # Третий способ

Предыдущий код работает некорректно. Ниже исправленный код:

f:=exp(-r/2)*r: r := sqrt(x^2 + y^2 + z^2):
f:=unapply(f, x,y,z);
F:=h->y*diff(h,y)*diff(h,z) - z*diff(h,y)^2 + x/r + diff(h,z); # Задание оператора F
F(f(x,y,z)); # Применение F к функции f

Я переобозначил ваш оператор D через F , т.к. символ D означает в Maple оператор дифференцирования. Можно сделать так: restart; f:=exp(-r/2)*r: r := sqrt(x^2 + y^2 + z^2): f:=unapply(f, x,y,z); F:=h->y*D[2](h)*D[3](h) - z*D[2](h)^2 + x/r + D[3](h); # Задание оператора F F(f)(x,y,z); # Применение F к...

Просто Maple так спроектирован, что он возвращает одну типичную первообразную функцию, а не неопределённый интеграл (множество всех первообразных). Поэтому и нет произвольной постоянной в ответе. Также из двух промежутков (x<0, x>0) результат возвращается только для промежутка x>0 . Если вы хотите п...