Exponenta.ru

Если я правильно Вас понял, то Вы хотите, чтобы ось y шла не вверх, а вниз. В 2D это сделать невозможно, т.к. направления осей координат всегда стандартное. Но это можно сделать, если выйти в 3D и использовать опцию orientation . Вот пример: plots:-spacecurve([x,x^2,0], x=0..2, color=red, axes=norma...

В Мэйпл это также легко решается:
solve(max(abs(x), abs(x-8))=5);
3, 5

Ну это в 100 раз проще: Primes:=[``, seq(ithprime(k), k=1..100)]: plots:-animate(plots:-textplot,[[0,0, Primes[round(i)]], color=blue, font=[times,roman,30]], i=1..101, frames=500, paraminfo=false, axes=none, size=[100,100]); https://a.radikal.ru/a32/1805/f7/af63e75e9af2.gif

Будет более наглядно (и проще для реализации), чтобы элементы списка появлялись не в одной вертикальной колонке, а построчно, т.е. как обычный текст слева направо. Вот пример такой анимации - список первых 100 простых чисел: restart; L:=[[-50,0,convert([seq(ithprime(k),k=1..100)], string)],color=blu...

Не пробовал. Почему-то не подумал об этом. Команда CurveFitting:-Spline позволяет автоматически получить сплайн нужного порядка (в данном примере - сплайн первого порядка, т.е кусочно линейную функцию).

Вот другое решение, дающее более плавную анимацию. Для этого с помощью процедуры ConvertToPiecewise , каждый список, определяющий ломаные линии, конвертируется в piecewise функции: restart; ConvertToPiecewise:=proc(L::list,v::name:='t') local n; n:=nops(L); piecewise(seq(op([v>=L[i,1] and v<L[i+1,1]...

Вот код для параллельной анимации трёх ломаных: restart; t := [1,2,3,4,5,6,7,8,9,10]: x:= [2,1,-3,-8,-5,-4.-8,-4,6,2,9]: y:= [2,5,3,8,5,4.3,4,6,3,4]: z:= [3,5,3,1,5,4.3,5,4,3,1]: tx:=zip(`[]`, t, x): ty:=zip(`[]`, t, y): tz:=zip(`[]`, t, z): A:=plots:-animate(plot,[tx[1..floor(i)], color=red, thickn...

Это несложно: 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...