Exponenta.ru

Выполняем 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 и отсутсвуют метки для таких сообщений.

Продублировал мою реплику

Мне не удалось сообщить это на hub.exponenta.ru , т.к. ни Мэйп, ни Математика там не предусмотрены. Не понимаю, как Вы собираетесь переносить эти форумы.

в личном сообщении администратору. Оно до сих пор остается без ответа.

Ваш код содержит не одну ошибку. Вот его исправление: restart; N := 160: P := 4: A := 1: X := Vector(1 .. P*N): Y := Vector(1 .. P*N): F := A*sqrt(x): for i from 0 to N*P - 1 do X[i + 1] := i; Y[i + 1] := eval(F, x = i); end do: plot(X, Y);

Мне не удалось сообщить это на hub.exponenta.ru , т.к. ни Мэйп, ни Математика там не предусмотрены. Не понимаю, как Вы собираетесь переносить эти форумы.

Команда Мэйпла
производит ошибку

Error, (in mtaylor) no series at non-real points

Она поправима: команда работает.

umer_ot_matematiki, это нормальное поведение Мэйпла 6. Старые версии математических систем часто имеют проблемы с файлами, созданными в новых версиях, поскольку изменился синтаксис и появились навые команды.

restart; with(RealDomain):solve(2*abs(log[10](a*x))*log[x](10) = (4*log[10](a) - 3)*log[x^2](10) - log[10](x)/2, [x]); Error, (in assuming) when calling 'Utilities:-SimpleAnd'. Received: 'invalid input: Utilities:-SetSolutions expects its 2nd argument, solutions, to be of type ({list, set})({piecew...

Еще одна ошибка в Мэйпле 2019.1:

Во- первых, добавлю пропущенное выше sol1 := solve(eval({b >= -Pi, x >= -Pi, y >= -Pi, sin(x)+sin(y) = sin(b), sin(2*x)+sin(2*y) = sin(2*b), b < Pi, x < Pi, y < Pi},b=Pi/4), {x, y}, explicit); Во-вторых, Мэйпл 2019.1 выдает четыре правильные решения и пропускает два решения. Мэйпл прогрессирует.

Выполнив ?piecewise или заглянув в справку , пользователь читает piecewise piecewise-continuous functions Рассмотрим d := proc (x) options operator, arrow; piecewise(type(x, rational), 1, 0) end proc; d(Pi); 0 d(-2); 1 И козе понятно, что функция Дирихле не является кусочно-непрерывной функцией. Оче...

Мэйпл 2018.2.1: restart; CodeTools:-Usage(sum((sin(22*n)/(7*n))^3, n = 1 .. infinity)); memory used=21.95GiB, alloc change=0.93GiB, cpu time=14.72m, real time=15.06m, gc time=2.42m (I*(1/2744))*(polylog(3, exp(66*I))-3*polylog(3, exp(22*I))+3*polylog(3, exp(-22*I))-polylog(3, exp(-66*I))) simplify(%...

Реже сообщаю Мэйпловские ошибки, ибо реже им пользуюсь. Вот очередная ошибка: sol := solve({b >= -Pi, x >= -Pi, y >= -Pi, sin(x)+sin(y) = sin(b), sin(2*x)+sin(2*y) = sin(2*b), b < Pi, x < Pi, y < Pi}, {x, y}, explicit); Warning, solutions may have been lost piecewise(b < -Pi, [], b < Pi, [{x = 0, y ...

Еще один совет - пользуйтесь справочником по правописанию. Полагаю, что Вы имеете среднее образование.

Kitonum , вот простой пример, когда Ваш код дает осечку: estart; y := sin(x)^2; sol := minimize(y, x = -1/4 .. Pi+1/4, location); x0 := eval(x, op([1, 1], sol[2])); y0 := sol[1] А результат команды Optimization:-minimize имеет другое строение, особенно если команда в матричной форме. Да, есть еще s...