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

Markiyan Hirnyk
Пн дек 12, 2011 11:13 am
Форум: Maple
Тема: Помогите,пожалуйста,найти ошибку
Ответы: 4
Просмотры: 2089

rhs

> eqs1 := {c1+c2+c3 = b-a, c1*x1+c2*x2+c3*x3 = 1/2*(b^2-a^2), c1*x1^2+c2*x2^2+c3*x3^2 = 1/3*(b^3-a^3), c1*x1^3+c2*x2^3+c3*x3^3 = 1/4*(b^4-a^4), c1*x1^4+c2*x2^4+c3*x3^4 = 1/5*(b^5-a^5), c1*x1^5+c2*x2^5+c3*x3^5 = 1/6*(b^6-a^6)}; >solve(eqs1, {c1, c2, c3, x1, x2, x3}); > l[1]: >ll1:= map(c-> rhs(c), l...
Markiyan Hirnyk
Вс дек 11, 2011 12:05 pm
Форум: Maple
Тема: График решения ДУ.
Ответы: 3
Просмотры: 2079

Интеграл

См. результат выполнения комманды:
t = -(int(-1/(-lambda*_a+rho*sqrt(A*_a^2+B)-rho*sqrt(A*_a^2+B)*a), _a));
Markiyan Hirnyk
Вс дек 11, 2011 10:37 am
Форум: Maple
Тема: График решения ДУ.
Ответы: 3
Просмотры: 2079

Решение

Можно найти обратную функцию к решению: >dsolve(diff(k(t), t) = -lambda*k(t)+rho*(1-a)*sqrt(A*k(t)^2+B), k(t)); t+Intat(-1/(-lambda*_a+rho*sqrt(A*_a^2+B)-rho*sqrt(A*_a^2+B)*a), _a = k(t))+_C1 = 0....
Markiyan Hirnyk
Пт дек 09, 2011 11:17 pm
Форум: Maple
Тема: Заполнениие матриц заданными числами
Ответы: 27
Просмотры: 6376

Возник еще вопрос. Приводимые примеры, в данной ссылке, работают для матриц небольших размеров, но для матрицы 3 на 5 уже результаты не выводятся. [Length of output exceeds limit of 1000000] Как записать результаты в одномерный массив, чтобы вывод был не всех матриц, а конкретной по индексу в масси...
Markiyan Hirnyk
Пт дек 09, 2011 11:07 pm
Форум: Maple
Тема: Заполнениие матриц заданными числами
Ответы: 27
Просмотры: 6376

Подскажите, пожалуйста, также как разобраться в том, чтобы одним элементам матрицы присваивать значения из одного множества, а другим - из другого. Например, угловые или диагональные элементы оставить постоянными, равными заранее заданному числу. Это другой вопрос, который следует задавать отдельно...
Markiyan Hirnyk
Пт дек 09, 2011 8:49 am
Форум: Maple
Тема: Ряд Фурье
Ответы: 10
Просмотры: 3115

Re: Разьяснение

Kitonum писал(а):В процедуре f задана как выражение, а не как функция! Поэтому не вижу никаких противоречий:

Вы правы:
st := time(); Fourier1(x, 4); time()-st
0.078
Markiyan Hirnyk
Пт дек 09, 2011 12:16 am
Форум: Maple
Тема: Ряд Фурье
Ответы: 10
Просмотры: 3115

Разьяснение

Как понимать
a[k]:=(1/Pi)*int(f*cos(k*x),x=-Pi..Pi); ?
Markiyan Hirnyk
Чт дек 08, 2011 11:09 pm
Форум: Maple
Тема: Ряд Фурье
Ответы: 10
Просмотры: 3115

Умная мысля приходит опосля

Kitonum писал(а):Да, Вы правы! Работает слишком медленно. Не заметил ещё одну неточность. В тексте кода процедуры везде надо заменить f(x) на f . Тогда будет работать быстро!
А Вы продумали как вводить множители cos(k*x)и sin(k*x)в интегралы для коэффициентов Фурье?
Markiyan Hirnyk
Чт дек 08, 2011 9:09 pm
Форум: Maple
Тема: Ряд Фурье
Ответы: 10
Просмотры: 3115

Output

st := time(); Fourier(x, 4); time()-st
228.969
Изображение
Markiyan Hirnyk
Чт дек 08, 2011 7:31 pm
Форум: Maple
Тема: Ряд Фурье
Ответы: 10
Просмотры: 3115

Re: Ряд Фурье с OrthogonalExpansions

Zombare писал(а):Помогите, пожалуйста, с программой.
Не выводит график сумм ряда на рисунок.
Не могу найти ошибки.
Не занимайтесь кустарщиной. Используйте http://www.maplesoft.com/applications/v ... ?SID=33406
Markiyan Hirnyk
Чт дек 08, 2011 10:39 am
Форум: Maple
Тема: Вычисление интеграла
Ответы: 19
Просмотры: 5814

Нельзя ли сделать меньше точность, но с верным результатом? А то сколько не меняю в вашем коде точности, все неверный ответ! Вы шутите? Мне никогда не приходилось сталкиваться с неработающей командой Digits в работающем пакете Maple или упоминанием о такой проблеме до Вас. Хотеть не вредно, вредно ...
Markiyan Hirnyk
Ср дек 07, 2011 10:55 pm
Форум: Maple
Тема: Найти соотношение
Ответы: 12
Просмотры: 3481

Исправление

>with(PolynomialIdeals): >J := <a*n*p-b*n^2-c*p^2, b*m*p-c*p^2-a*m^2, c*m*n-a*m^2-b*n^2>: >J1 := EliminationIdeal(J, {a, b, c, m, n}); <-c*m*n+a*m^2+b*n^2, c^3*a^2*m^4+b^3*a^2*m^4-5*c*b*a^3*m^4+a^5*m^4, c^3*a*n*m^3+b^3*a*n*m^3-5*c*b*a^2*n*m^3+a^4*n*m^3, c^3*n^2*m^2+a^3*n^2*m^2+c*b^2*n*m^3-5*c^2*a*n*...
Markiyan Hirnyk
Ср дек 07, 2011 10:38 pm
Форум: Maple
Тема: Найти соотношение
Ответы: 12
Просмотры: 3481

С Maple

Вот что получил with(PolynomialIdeals): J := <a*n*p-b*n^2+c*p^2, b*m*p-c*p^2+a*m^2, c*m*n-a*m^2+b*n^2>: J1 := EliminationIdeal(J, {a, b, c, m, n}) <c*m*n-a*m^2+b*n^2, 2*b^2*a^3*n*m^3-c^3*a^2*m^4+b^3*a^2*m^4+c*b*a^3*m^4+a^5*m^4, c^3*a*n*m^3-b^3*a*n*m^3+c*b*a^2*n*m^3-a^4*n*m^3-2*b*a^3*m^4, c^3*n^2*m^2...
Markiyan Hirnyk
Ср дек 07, 2011 8:24 pm
Форум: Maple
Тема: Расстояние от точки до прямой
Ответы: 19
Просмотры: 8083

try

Уважаемый г-н hirnyk ! Спасибо за указанный пример. Я думал, что в случае наступления error программа прекращает свою работу, как это происходит в процедурах, но здесь сообщение об ошибке выводится, но программа продолжает работать дальше, естественно некорректно. Если Вы знаете, сообщите, пожалуйс...