Найдено 2027 результатов

Kitonum
Сб май 26, 2018 8:23 am
Форум: Maple
Тема: Помогите построить анимационный график
Ответы: 4
Просмотры: 30

Re: Помогите построить анимационный график

Это несложно: 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
Kitonum
Вт май 22, 2018 10:40 pm
Форум: Maple
Тема: Помогите написать программу по задаче
Ответы: 4
Просмотры: 84

Re: Помогите написать программу по задаче

Очевидно, что приведённое Вами решение ошибочно.
Kitonum
Пн май 21, 2018 7:51 pm
Форум: Maple
Тема: Помогите написать программу по задаче
Ответы: 4
Просмотры: 84

Re: Помогите написать программу по задаче

Программу написать несложно, но вся проблема в том, что при этих данных поезд вообще не тронется. Если мы подставим в формулу для R начальную скорость v=0 , то получим R=100 т или 100000 кГ . Чтобы поезд начал движение тяга должна быть больше этой величины. Я взял F=107000 кГ . restart; R:=(2.5+0.05...
Kitonum
Ср май 09, 2018 8:55 pm
Форум: Maple
Тема: не видит переменную внутри процедуры
Ответы: 3
Просмотры: 91

Re: не видит переменную внутри процедуры

Интересная проблема! Вероятно это связано с некоторыми специфическими вычислительными правилами в процедурах. Задайте свой вопрос на mapleprimes.com . Вот способ обойти проблему, используя команду unapply для задания процедуры и команду piecewise вместо if .. end if . restart; F := 8*y^2*(3*R^2+2*y^...
Kitonum
Ср май 02, 2018 9:37 pm
Форум: Maple
Тема: Помогите составить программу по задаче
Ответы: 3
Просмотры: 135

Re: Помогите составить программу по задаче

Вот код в 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
Kitonum
Пт апр 13, 2018 8:25 am
Форум: Maple
Тема: Крайние точки множества
Ответы: 9
Просмотры: 223

Re: Крайние точки множества

Для вашей проблемы понятие крайней точки множества связано с геометрической интерпретацией задачи линейного программирования. Грубо говоря - это вершины некоторого многомерного многогранника (у Вас - восьмимерного). Почитайте http://eps.dvo.ru/~shamray/lp/lecture/expoint_in_lp.pdf где описан и алгор...
Kitonum
Чт мар 29, 2018 12:52 pm
Форум: Общие вопросы математики
Тема: Найти максимальное значение параметра
Ответы: 5
Просмотры: 148

Re: Найти максимальное значение параметра

А дальше просто накладываете на эти корни те условия, которые прописаны в вашей задаче и решаете полученную систему. Конечно решать систему не обязательно вручную. Вот код для решения в Мэйпл: 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...
Kitonum
Чт мар 29, 2018 1:25 am
Форум: Общие вопросы математики
Тема: Найти максимальное значение параметра
Ответы: 5
Просмотры: 148

Re: Найти максимальное значение параметра

Левую часть уравнения можно легко разложить на множители. Дальнейшее очевидно.
Kitonum
Ср мар 28, 2018 2:01 pm
Форум: Maple
Тема: Ввод матрицы
Ответы: 2
Просмотры: 119

Re: Ввод матрицы

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

<1,2,3; 4,5,6; 7,8,9>;
Kitonum
Пт мар 23, 2018 10:38 am
Форум: Общие вопросы математики
Тема: Что больше
Ответы: 1
Просмотры: 112

Re: Что больше

Неравенство 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 В вашем...
Kitonum
Пн мар 12, 2018 12:00 pm
Форум: Maple
Тема: Сформируйте множество выражений, обращающихся в ноль при x = 0
Ответы: 2
Просмотры: 115

Re: Сформируйте множество выражений, обращающихся в ноль при x = 0

Вот 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)}; # Третий способ
Kitonum
Пт фев 16, 2018 3:14 pm
Форум: Maple
Тема: Задать и применить дифференциальный оператор к функции - Maple 2016
Ответы: 3
Просмотры: 147

Re: Задать и применить дифференциальный оператор к функции - Maple 2016

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

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
Kitonum
Чт фев 15, 2018 1:08 pm
Форум: Maple
Тема: Задать и применить дифференциальный оператор к функции - Maple 2016
Ответы: 3
Просмотры: 147

Re: Задать и применить дифференциальный оператор к функции - Maple 2016

Я переобозначил ваш оператор 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 к...
Kitonum
Чт фев 15, 2018 12:32 pm
Форум: Maple
Тема: Почему интеграл от 1/x будет ln(x), а не ln(|x|)?
Ответы: 3
Просмотры: 145

Re: Почему интеграл от 1/x будет ln(x), а не ln(|x|)?

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