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

Markiyan Hirnyk
Вт окт 23, 2018 10:19 pm
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 10
Просмотры: 481

Re: Дефект в команде Solve

Еще один промах:

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

with(RealDomain):
solve({log[x+5](-2*y+23)+log[y-10](2*x+9) = 2, log[x+5](y^2-20*y+100)+log[y-10](x^2+10*x+25) = 4});
{x = -4, y = 11}, {x = -22/5, y = 53/5}
 

Первое решение ложно. Отмечу, что ММА вообще не решает эту систему.
Markiyan Hirnyk
Пн окт 15, 2018 10:39 am
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 10
Просмотры: 481

Re: Дефект в команде Solve

Еще один ляпсус

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

taylor(Dirac(x), x, 3)
Dirac(0)+Dirac(1, 0)*x+(1/2)*Dirac(2, 0)*x^2+O(x^3)
Markiyan Hirnyk
Вс окт 14, 2018 10:16 am
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 10
Просмотры: 481

Дефект в команде Solve

Просьба сообщить в Мэйплсофт о следующем изъяне with(RealDomain): sol :=solve(x^2-a = abs(x-b), [x]) ; eval(sol, [a = -2, b = 3]); [] solve(eval(x^2-a = abs(x-b), [a = -2, b = 3]), [x]); [[x = -1/2-(1/2)*sqrt(5)], [x = -1/2+(1/2)*sqrt(5)]] Я не имею возможности сделать это лично.
Markiyan Hirnyk
Пн сен 17, 2018 9:52 am
Форум: Maple
Тема: Собственные значения и векторы
Ответы: 5
Просмотры: 478

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

CurveFitting
вместо

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

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

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

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

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

Вы набрали

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

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

Пропущен x. Пожалуйста, не беспокойте по пустякам. В следующий раз отвечать в подобных случаях не намерен. Вы меня поняли?