Exponenta.ru

В справке Мэйпла 2019 "Что нового?" с гордостью приведен пример ex4 := csch(t)*sin(t)/t: inttrans[fourier](ex4, t, s); (2*Pi + ln((exp((s - 1)*Pi) + 1)/(exp((s + 1)*Pi) + 1)))*I Продолжим его: inttrans[invfourier](%, s, t); (2*Pi*Dirac(t) + invfourier(ln((exp(Pi*s)*exp(-Pi) + 1)/(exp(Pi*s)...

Осознаю, что команда старая и слабая, однако такой результат ниже всякой критики.

Это не так, x= 2.583333333 является критической точкой рассматриваемой функции. Проблема в другом: Мэйпл не отмечает, что множество критических точек бесконечно.

Команда Мэйпла 2019.1

производит три значения вместо пяти. Математика 12.0 выдает пять значений (которые подтверждаются численно для y=0.05) и предостережение.

N := 18: G := Matrix(N/2, N/2, (i, j) -> 1/sin(Pi*(i + j + 3/2)/N)): evalf(LinearAlgebra:-Eigenvalues(G)); [] Насколько я помню с первого курса мех-мата, любая матрица над полем комплексных чисел имеет собственные значения. Замечу, что для N=10 код в Мэйпле 2019.1 работает правильно и быстро.

На форуме MaplePrimes был задан вопрос . Отвечая на него, так называемый tomleslie заявил, что этот результат невозможно получить, применяя DirectSearch и привел свою попытку. Это высказывание весьма квалифицированного (судя по его коду) пользователя не соответствует действительности и вызывает удив...

Результат команды Мэйпла 2019.1 FunctionAdvisor(branch_cuts, hypergeom([1, 3], [2], r^2 + 1), r, plot = 2*D) [hypergeom([1, 3], [2], r^2 + 1), 0 < r, r < 0] не согласуется с результатами команд eval(hypergeom([1, 3], [2], r^2 + 1), r = 1 + 0.0001*I); -8 -3.4999999 10 - 0.00009999999200 I eval(hyperg...

Версии Maple 19 не существует.

Из той самой серии

По крайней мере один из результатов ошибочный:

Примеров реализации "параметрического портрета" для систем нелинейных ОДУ ни в Мэйпле, ни в Математике не нашел.

int(x^q*exp(b*x), x = 0 .. X)assuming X>0,q>0,b::real; (-b)^(-q)*X*(-(-b)^q*X^(q - 1)*q*(-b*X)^(-q)*GAMMA(q)/b + (-b)^q*X^(q - 1)*exp(b*X)/b + (-b)^q*X^(q - 1)*q*(-b*X)^(-q)*GAMMA(q, -b*X)/b) Неполная гамма-функция - это перелицованный рассматриваемый интеграл, но все же ответ. Однако int(x^q*exp(b...

Student:-Calculus1:-CriticalPoints(floor((x^2 + 3)/(2*x)), x = 1/6 .. 5); Warning, some critical points are returned as numeric approximations [0.1666712762, 0.1666758856, 0.1666851044, 0.1667035422, 0.1667404176, 0.1668141684, 0.1669616700, 0.1672566732, 0.1678466798, 0.1690266928, 0.1713867188, 0...

Выполняем restart; restart;solve({y = 5 + 2*x + x^a, 0 < a, a < 1}, x); piecewise(a <= 0, [], a < 1, [{x = RootOf(-y + 5 + 2*_Z + _Z^a)}], 1 <= a, []) Понятно, что ответ неверен: solve(y = 5 + 2*x + 1/x, x); y/4 - 5/4 + sqrt(y^2 - 10*y + 17)/4, y/4 - 5/4 - sqrt(y^2 - 10*y + 17)/4 solve(y = x^3 + 2*x...

Администратор в ответе на мое личное сообщение поинтересовался, что именно препятствует представлению на hub.exponenta.ru . Не предусмотрены коды для языков Maple и WolframLanguage и отсутсвуют метки для таких сообщений.