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

Kitonum
Ср май 09, 2018 8:55 pm
Форум: Maple
Тема: не видит переменную внутри процедуры
Ответы: 3
Просмотры: 622

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
Просмотры: 789

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
Просмотры: 1053

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

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

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
Просмотры: 1012

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

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

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

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

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

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
Просмотры: 551

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
Ответы: 4
Просмотры: 1024

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
Ответы: 4
Просмотры: 1024

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
Просмотры: 817

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

Просто Maple так спроектирован, что он возвращает одну типичную первообразную функцию, а не неопределённый интеграл (множество всех первообразных). Поэтому и нет произвольной постоянной в ответе. Также из двух промежутков (x<0, x>0) результат возвращается только для промежутка x>0 . Если вы хотите п...
Kitonum
Вт янв 30, 2018 11:39 am
Форум: Maple
Тема: Преобразование цепной дроби
Ответы: 2
Просмотры: 747

Re: Преобразование цепной дроби

Если у Вас более старая версия чем Maple 2016, то см. команды:
numtheory:-cfrac , numtheory:-cfracpol , convert(..., confrac)

Для Maple 2016 и выше ещё см. NumberTheory:-ContinuedFraction
Kitonum
Ср янв 24, 2018 7:33 am
Форум: Maple
Тема: Где ошибка?Помогите, пожалуйста
Ответы: 2
Просмотры: 580

Re: Где ошибка?Помогите, пожалуйста

restart;
BesJS:=proc(n,x)
-BesselJ(n+1,x)+(n*BesselJ(n,x))/x;
end proc:

n:=1; y0:=1.5; step:=0.1; ye:=20.;
for y from y0 to ye by step do
if BesJS(n,y-step)*BesJS(n,y)<0 then
r:=y-step..y; aa:=fsolve(BesJS(n,x), x=r);
print(r, aa) end if;
end do:

plot(BesJS(1,x), x=1.4..20); # График
Kitonum
Ср янв 24, 2018 12:39 am
Форум: Maple
Тема: Решить систему уравнение
Ответы: 2
Просмотры: 602

Re: Решить систему уравнение

В действительной области система res имеет единственное нулевое решение (единственная особая точка). Для решения системы sys задаём значение параметра а и начальные условия и решаем численно. Графики ясно показывают, что особая точка - устойчивый фокус. restart; f:=(x,y)->y; g:=(x,y)->-a*y-a^2*x-x^3...