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

Markiyan Hirnyk
Пн сен 17, 2018 9:52 am
Форум: Maple
Тема: Собственные значения и векторы
Ответы: 4
Просмотры: 110

Re: Собственные значения и векторы

Для начала прочитайте справку.
Markiyan Hirnyk
Чт июл 26, 2018 11:10 am
Форум: Mathematica
Тема: как решить систему диф уравнений с помощью Mathematica?
Ответы: 3
Просмотры: 273

Re: как решить систему диф уравнений с помощью Mathematica?

Численно, задав начальные условия. Мэйпл решает в квадратурах. Привожу одно из решений

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

{x(t) = -(1/2)*sqrt(2)*t+_C3, x(t) = (1/2)*sqrt(2)*t+_C3}, {y(t) = _C1+(1/2)*sqrt(-4*_C2^2+1)*sin(sqrt(2)*t)+_C2*cos(sqrt(2)*t)}, {z(t) = Int((2*(diff(y(t), t))^2-1)/(2*(diff(y(t), t, t))*(diff(x(t), t))), t)+_C1}
Markiyan Hirnyk
Сб июл 21, 2018 10:28 pm
Форум: Maple
Тема: интеграл от решения дифференциальных уравнений
Ответы: 9
Просмотры: 250

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

Еще один подход изложен здесь. Идея состоитв следующем: добавить

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

diff(z9(x), x) = z6(x)
в , в и в c понятными дальнейшими изменениями. Проверял, работает.
Markiyan Hirnyk
Сб июл 21, 2018 8:25 pm
Форум: Maple
Тема: интеграл от решения дифференциальных уравнений
Ответы: 9
Просмотры: 250

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

Амплитуда колебаний порядка 10^(-7) около среднего значения 0.14e-4, поэтому график первообразной и близок к прямой линии.
Markiyan Hirnyk
Сб июл 21, 2018 8:11 am
Форум: Maple
Тема: интеграл от решения дифференциальных уравнений
Ответы: 9
Просмотры: 250

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

Команда

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

plot(evalf(Int('Z6(s)', s = 0 .. x)), x = 0 .. tau, numpoints = 5);
работает в Мэйпле 16.02, но медленно: выполняется примерно 6 минут на моем компе.
Markiyan Hirnyk
Сб июл 21, 2018 7:43 am
Форум: Maple
Тема: интеграл от решения дифференциальных уравнений
Ответы: 9
Просмотры: 250

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

fenix85, спасибо за файл, переданный через Гугл. Действительно, при выполнении команды в Мэйпле 16.02 ( версии 13 не имею) получается та же ошибка. Работает в Мэйпле 2018.1.Возможно, изменился синтаксис Мэйпла. Подумаю над этим.
Markiyan Hirnyk
Пт июл 20, 2018 3:21 pm
Форум: Maple
Тема: интеграл от решения дифференциальных уравнений
Ответы: 9
Просмотры: 250

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

Пожалуйста, представьте через Dropbox или иной файлообменник mw file с выполненным кодом. Возможно также, что вы не выполнили все ваши предыдущие команды. Конечно же, программа должна начинаться с команды restart.
Markiyan Hirnyk
Чт июл 19, 2018 9:21 pm
Форум: Maple
Тема: интеграл от решения дифференциальных уравнений
Ответы: 9
Просмотры: 250

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

Добавьте в конце вашего кода команду

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

plot(x->int(Z6(s), s = 0 .. x, numeric, epsilon = 0.1e-1) , 0 .. tau, numpoints = 5, colour = [black], thickness = [4, 4], labeldirections = [horizontal, vertical], labels = [s*M, `dθ`/ds]);
Markiyan Hirnyk
Пт июн 29, 2018 6:42 am
Форум: Maple
Тема: Задача о максимам и минимумах
Ответы: 2
Просмотры: 284

Re: Задача о максимам и минимумах

Используем DirectSearch : DirectSearch:-GlobalOptima(max(abs(x1), abs(x2-1)), {abs(x1-3)+abs(x2+2) <= 2}) [2.00000000198992, [x1 = 2.00000000193731, x2 = -1.00000000198992], 253] С вашего позволения посоветую повысить вашу языковую грамотность. Неграмотный текст воспринимается как ругань. В следующи...
Markiyan Hirnyk
Вс май 27, 2018 9:31 am
Форум: Maple
Тема: Анимированные графики. Как построить x, y, z от t?
Ответы: 4
Просмотры: 168

Re: Анимированные графики. Как построить x, y, z от t?

Kitonum, Вы не пробовали анимировать результат команд из

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

CurveFitting
вместо

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

ConvertToPiecewise
?
Markiyan Hirnyk
Чт май 17, 2018 10:46 pm
Форум: Mathematica
Тема: Вложенные циклы for
Ответы: 1
Просмотры: 163

Re: Вложенные циклы for

Язык Математики Wolfram Language , будучи современным языком программирования, существенно отличается от таких языков, как Fortran. В частноти, он не содержит команды Else вообще. Относительно циклов, посмотрите справку For и справки, к которым она отсылает.
Markiyan Hirnyk
Вт май 15, 2018 11:08 pm
Форум: Mathematica
Тема: Решение уравнения со степенной функцией
Ответы: 4
Просмотры: 151

Re: Решение уравнения со степенной функцией

Вы набрали

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

ToRadicals[Solve[x^4 + x^3 + x^2 + x - 10 == 0 && > 0, x, Reals]]

Пропущен x. Пожалуйста, не беспокойте по пустякам. В следующий раз отвечать в подобных случаях не намерен. Вы меня поняли?
Markiyan Hirnyk
Вт май 15, 2018 8:46 pm
Форум: Mathematica
Тема: Решение уравнения со степенной функцией
Ответы: 4
Просмотры: 151

Re: Решение уравнения со степенной функцией

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

ToRadicals[Solve[x^4 + x^3 + x^2 + x - 10 == 0 && x > 0, x, Reals]]
{{x -> 1/3 (1 - 8/(55 + 3 Sqrt[393])^(1/3) + (55 + 3 Sqrt[393])^( 1/3))}}
Markiyan Hirnyk
Пт апр 13, 2018 8:34 am
Форум: Maple
Тема: Крайние точки множества
Ответы: 9
Просмотры: 403

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

Kitonum, в дополнение добавлю, что это делает команда Мэйпла PolyhedralSets:-VerticesAndRays. Никаких процедур писать не надо.
Markiyan Hirnyk
Пт апр 13, 2018 12:13 am
Форум: Maple
Тема: Крайние точки множества
Ответы: 9
Просмотры: 403

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

Пустое множество не содержит ни одного элемента.