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

Kitonum
Ср мар 28, 2018 2:01 pm
Форум: Maple
Тема: Ввод матрицы
Ответы: 2
Просмотры: 455

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

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

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

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

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

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

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

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

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

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

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

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

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

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

В действительной области система res имеет единственное нулевое решение (единственная особая точка). Для решения системы sys задаём значение параметра а и начальные условия и решаем численно. Графики ясно показывают, что особая точка - устойчивый фокус. restart; f:=(x,y)->y; g:=(x,y)->-a*y-a^2*x-x^3...
Kitonum
Ср янв 10, 2018 12:13 am
Форум: Maple
Тема: Почему при x<0 Maple рисует график функции, зависящей от sqrt(x)?
Ответы: 7
Просмотры: 684

Re: Почему при x<0 Maple рисует график функции, зависящей от sqrt(x)?

ovmihailov, можете сделать так: сначала выполните команду indets , которая возвращает все подвыражения исходного выражения, содержащие переменную x . Постройте все эти подвыражения и вы увидите , что все эти подвыражения являются действительными числами только для x>0 : restart: f := x -> sqrt(x)*si...
Kitonum
Вт янв 09, 2018 12:06 pm
Форум: Maple
Тема: Почему при x<0 Maple рисует график функции, зависящей от sqrt(x)?
Ответы: 7
Просмотры: 684

Re: Почему при x<0 Maple рисует график функции, зависящей от sqrt(x)?

Причина в том, что на самом деле для любого x<0 число sqrt(x)*sin(1/sqrt(x)) является действительным (произведение двух комплексных чисел вполне может оказаться действительным, например i*i=-1 ). Смотрите: convert(sqrt(x)*sin(1/sqrt(x)), exp); evalc(%) assuming x<0; eval(%, x=-p); # p положительно Е...
Kitonum
Пн янв 08, 2018 3:00 pm
Форум: Maple
Тема: усреднения решения системы дифференциальных уравнений
Ответы: 12
Просмотры: 894

Re: усреднения решения системы дифференциальных уравнений

Далее сами во всём этом разбирайтесь. Я уже подсказал Вам достаточно.
Kitonum
Вс янв 07, 2018 9:55 pm
Форум: Maple
Тема: Графики в строчку (рядом)
Ответы: 9
Просмотры: 1298

Re: Графики в строчку (рядом)

62971 Спасибо. Строка P1:=plot(x^2, x = -sqrt(3) .. sqrt(3), y=0..3, axes = normal, view=[-2..2,0..4]): действительно улучшила ситуацию. Но мой Maple 15 не понимает фрагмент size=[360,360] По-видимому, для исполнения "size" нужно подключить какие-то пакеты. Если это так, то подскажите, по...
Kitonum
Сб янв 06, 2018 8:27 pm
Форум: Maple
Тема: усреднения решения системы дифференциальных уравнений
Ответы: 12
Просмотры: 894

Re: усреднения решения системы дифференциальных уравнений

fenix85 писал(а):Qr Bbpost

Код: Выделить всё

>  z5c := t -> Z5c(t)
>  z5c(0);
Error, (in Z5c) too many levels of recursion

Проблема в том, что у Вас Z5c определено как выражение, а не как процедура. Поэтому Maple не понимает, что вместо x надо подставить 0. Напишите так:
z5c := t->eval(Z5c, x = t) ;
z5c(0);
Kitonum
Пт янв 05, 2018 10:24 pm
Форум: Maple
Тема: усреднения решения системы дифференциальных уравнений
Ответы: 12
Просмотры: 894

Re: усреднения решения системы дифференциальных уравнений

Вот исправленная версия
new_1_new.rar
(64.62 КБ) 52 скачивания


PS. Команда LearstSquares по умолчанию сглаживает линейной функцией. Но у вас тренд не линейный, а параболический. Поэтому замените своё w на
w := LeastSquares(L, x, curve = a*x^2+b*x+c);