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

Markiyan Hirnyk
Пн фев 19, 2018 10:21 pm
Форум: Maple
Тема: Система с дифференциальными и недифференциальными уравнениями
Ответы: 1
Просмотры: 15

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

Пожалуйста, покажите систему на языке Мяйпла как текст, который можно копировать (не рисунок), участникам форума , иначе это пустой и беспредметный разговор.
Markiyan Hirnyk
Чт фев 15, 2018 11:55 am
Форум: Maple
Тема: Почему интеграл от 1/x будет ln(x), а не ln(|x|)?
Ответы: 3
Просмотры: 55

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

Вы пишите Команда int(1/x,x) дает ln(x), а не ln(abs(x)). Можно ли сделать так, чтобы Maple, интегрируя 1/x, писал ln(abs(x)), а не ln(x)? Вопрос, насколько я помню, обсуждался на MaplePrimes и там было сказано, что это сделать сложно и ненужно. Неопределенный интеграл является средством для вычисле...
Markiyan Hirnyk
Пт фев 02, 2018 10:35 pm
Форум: Mathematica
Тема: Решение ArcTan[a]
Ответы: 5
Просмотры: 85

Re: Решение ArcTan[a]

Артём99,
Надо решать ArcTan[x,y]= как обычный арктангенс отношения у/х, то есть arctan(у/х)

Это неверно: ArcTan[x,y] является кусочно заданной функцией, зависящей не только от отношения y/x, но и от знаков x и y. Внимательно прочитайте справку. Думать - полезно.
Markiyan Hirnyk
Пт фев 02, 2018 12:23 pm
Форум: Mathematica
Тема: Решение ArcTan[a]
Ответы: 5
Просмотры: 85

Re: Решение ArcTan[a]

Ваши слова не соответствуют действительности: вот код и его результат Solve[a *Sin[x]+b* Cos[x]+c==0,x] {{x->ConditionalExpression[ArcTan[(-b c-Sqrt[a^4+a^2 b^2-a^2 c^2])/(a^2+b^2),(-c+(b^2 c)/(a^2+b^2)+(b Sqrt[-a^2 (-a^2-b^2+c^2)])/(a^2+b^2))/a]+2 \[Pi] C[1],C[1]\[Element]\[DoubleStruckCapitalZ]]},...
Markiyan Hirnyk
Вт янв 30, 2018 11:25 pm
Форум: Maple
Тема: Преобразование цепной дроби
Ответы: 2
Просмотры: 79

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

Kitonum , пример в дополнение with(NumberTheory): cf := ContinuedFraction(exp(x)); expand(Numerator(cf, 2)); 2 + x expand(Denominator(cf, 2)); 2 - x normal(1+x/(1-(1/2)*x)); -(2+x)/(-2+x) with(numtheory): cf := cfrac(exp(x)): nthnumer(cf, 7); x^4 + 16 x ^3 + 120 x^2 + 480 x + 840 nthdenom(cf, 7); -...
Markiyan Hirnyk
Вс янв 28, 2018 10:27 am
Форум: Maple
Тема: Где ошибка?Помогите, пожалуйста
Ответы: 2
Просмотры: 76

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

Для нахождения всех нулей аналитической функции в заданном интервале целесообразно применить команду RootFinding:-NextZero в условном цикле.
Markiyan Hirnyk
Чт янв 18, 2018 10:19 am
Форум: Maple
Тема: Задача Коши с разрывной функцией
Ответы: 1
Просмотры: 78

Re: Задача Коши с разрывной функцией

Ваш вопрос относится к форуму "Общие вопросы математики". Вопрос скорее математический, чем по Мэйплу.
Markiyan Hirnyk
Ср янв 10, 2018 7:20 am
Форум: Maple
Тема: Почему при x<0 Maple рисует график функции, зависящей от sqrt(x)?
Ответы: 7
Просмотры: 104

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

ovmihailov , я показываю, что Математика правильно находит множество определения функции из вашего вопроса. Если вы сообщите мне формулы, задающие функцию, о которой вы пишите На самом деле ситуация такова: есть функция, заданная сложным аналитическим выражением - настолько сложным, что очень трудн...
Markiyan Hirnyk
Вт янв 09, 2018 9:30 pm
Форум: Maple
Тема: Почему при x<0 Maple рисует график функции, зависящей от sqrt(x)?
Ответы: 7
Просмотры: 104

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

Для сравнения: Математика производит следующий результат

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

FunctionDomain[Sin[1/Sqrt[x]]*Sqrt[x], x]
x>0
Markiyan Hirnyk
Пт янв 05, 2018 8:22 pm
Форум: Maple
Тема: усреднения решения системы дифференциальных уравнений
Ответы: 12
Просмотры: 117

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

Kitonum, проще

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

Interface(rtablesize = 200):
 Eq := diff(y(x), x) = x^2+y(x)*sin(x):
 ics := y(0) = 1:
 Sol := dsolve({Eq, ics}, numeric, output = Array([seq(j, j = 0 .. 10, .1)]))
Markiyan Hirnyk
Чт янв 04, 2018 8:33 pm
Форум: Maple
Тема: Графики в строчку (рядом)
Ответы: 9
Просмотры: 359

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

И еще один вопрос: что означает знак "минус" перед командой display? Не смог найти ответ в справке Maple.

См. официальное обьяснение здесь. Коротко, package :-command - это вызов команды command пакета package.
Markiyan Hirnyk
Чт янв 04, 2018 8:21 pm
Форум: Maple
Тема: усреднения решения системы дифференциальных уравнений
Ответы: 12
Просмотры: 117

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

Можно применить усреднение, например, таким образом:

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

plot([x+2*sin(x), (int(t+2*sin(t), t = x-3 .. x+3))/(2*3)], x = 3 .. 25);
Markiyan Hirnyk
Сб дек 23, 2017 12:21 pm
Форум: Maple
Тема: Построить график функции из массива точек
Ответы: 3
Просмотры: 89

Re: Построить график функции из массива точек

Выполнение кода ускоряет замена int на Int. Использование seq ускоряет его несущественно: restart; s := time(); gamma1 := 2.5; f := proc (omega) options operator, arrow; 2*omega*(Int(cos((omega^2-2/gamma1-1)*x)*BesselJ(0, x/gamma1), x = 0 .. 100))/Pi end proc; N := 1000; arr := Matrix(N, 2); for i t...
Markiyan Hirnyk
Пт дек 22, 2017 11:45 pm
Форум: Maple
Тема: Построить график функции из массива точек
Ответы: 3
Просмотры: 89

Re: Построить график функции из массива точек

Вот исправленный код gamma1 := 2.5: f := proc (omega) options operator, arrow; 2*omega*(int(cos((omega^2-2/gamma1-1)*x)*BesselJ(0, x/gamma1), x = 0 .. 100))/Pi end proc; N := 1000: arr := Matrix(N, 2); for i to N do arr[i, 1] := 2.0*i/N end do: for i to N do arr[i, 2] := evalf(f(arr[i, 1])) end do: ...