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

Markiyan Hirnyk
Ср ноя 14, 2018 5:28 pm
Форум: Maple
Тема: Ошибка в powcreate
Ответы: 0
Просмотры: 16

Ошибка в powcreate

restart; infolevel[all] := 3: with(powseries): powcreate(b(n) = (-1)^n*(Psi(n)+gamma-ln(2))/(n*2^(n-1)), b(0) = 1); Parse: Calling PreGeneral Parse: Completed PreGeneral Parse: Special case transformations Parse: Completed special case transformations Parse: Delimiter matching Parse: Completed deli...
Markiyan Hirnyk
Ср ноя 14, 2018 4:16 pm
Форум: Maple
Тема: Есть ли будущее у Maple?
Ответы: 6
Просмотры: 1791

Re: Есть ли будущее у Maple?

Намерен продолжить обсуждение.
Markiyan Hirnyk
Вт ноя 13, 2018 9:54 am
Форум: Maple
Тема: Ошибочный график
Ответы: 0
Просмотры: 23

Ошибочный график

Результат with(RealDomain): plot(arcsin((1/8)*x^2-1)-2*arcsin((1/4)*x)+(1/2)*Pi, x = -5 .. 5, thickness = 3); ошибочный (см. часть графика для x > 4). Впрочем, restart; Student[Calculus1]:-FunctionPlot(arcsin((1/8)*x^2-1)-2*arcsin((1/4)*x)+(1/2)*Pi, x = -5 .. 5, thickness = 3); рисует правильный рез...
Markiyan Hirnyk
Пн ноя 12, 2018 10:03 pm
Форум: Maple
Тема: Ошибка RealDomain:-solve
Ответы: 0
Просмотры: 20

Ошибка RealDomain:-solve

restart; with(RealDomain): solve(log(x^3+(1/2)*y^3+1/9) = log(x)+log(y), [x, y]); [[x = x, y = ((-27*x^3-3+3*sqrt(81*x^6-6*x^3+1))^(2/3)+6*x)/(3*(-27*x^3-3+3*sqrt(81*x^6-6*x^3+1))^(1/3))]] вместо [[х = 3^(2/3), y = 3^(1/3)]] , как правильно решает ММА. Эта ошибка распространенная.
Markiyan Hirnyk
Пн ноя 12, 2018 8:42 pm
Форум: Maple
Тема: Записать матрицу
Ответы: 5
Просмотры: 58

Re: Записать матрицу

Это я вам не отвечу.
Markiyan Hirnyk
Пн ноя 12, 2018 8:29 pm
Форум: Maple
Тема: Записать матрицу
Ответы: 5
Просмотры: 58

Re: Записать матрицу

Мэйпл имеет команду with(VectorCalculus): Jacobian([cos(x-1)+3*y-1.5, -cos(y)+2*x-4], [x, y]); Matrix(2, 2, [[-sin(x-1), 3], [2, sin(y)]]) Указанную команду можно разыскать поиском ?Jacobian в рабочем поле . Перевод термина на английский язык можно сделать в Яндексе или Гугле.
Markiyan Hirnyk
Сб ноя 10, 2018 12:16 pm
Форум: Maple
Тема: Неприменимый результат Мэйпла
Ответы: 0
Просмотры: 27

Неприменимый результат Мэйпла

Рассмотрим with(Statistics): X := RandomVariable(NonCentralChiSquare(k, mu)): Z := sqrt(X)*exp(-t*X): M := Mean(Z); -(1/2)*2^(1/2)*t^(-1/2-(1/2)*k)*((2*t+1)/t)^(-1/2-(1/2)*k)*exp(-(1/2)*mu)*Pi^(1/2)*(4*LaguerreL(1/2-(1/2)*k, (1/2)*k, (1/2)*mu/(2*t+1))*k^2*t^2+4*LaguerreL(1/2-(1/2)*k, (1/2)*k, (1/2)*...
Markiyan Hirnyk
Вт ноя 06, 2018 2:55 pm
Форум: Mathematica
Тема: Гравик зависимости от константы и значение координат
Ответы: 1
Просмотры: 63

Re: Гравик зависимости от константы и значение координат

Ваш код производит ошибку
NDSolve::dsvar: 0 cannot be used as a variable.
Markiyan Hirnyk
Пн ноя 05, 2018 7:48 pm
Форум: Maple
Тема: Слабость в dsolve
Ответы: 0
Просмотры: 57

Слабость в dsolve

Судя по результату restart; dsolve({diff(x(t), t) = x(t)*cos(t)^2+y(t)*((1/2)*sin(2*t)-1), diff(y(t), t) = x(t)*((1/2)*sin(2*t)+1)+y(t)*sin(t)^2}, {x(t), y(t)}); {diff(diff(x(t), t), t) = (-cos(t)^4*x(t)+cos(t)^3*sin(t)*(diff(x(t), t))-cos(t)^2*sin(t)^2*x(t)+cos(t)*sin(t)^3*(diff(x(t), t))+sin(t)*co...
Markiyan Hirnyk
Чт окт 25, 2018 11:49 pm
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 4
Просмотры: 142

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

Результат команды plots:-implicitplot([log[x+5](y^2-20*y+100)+log[y-10](x^2+10*x+25) = 4, log[x+5](-2*y+23)+log[y-10](2*x+9) = 2], x = -9/2 .. -3, y = 10 .. 23/2, color = [red, blue], gridrefine = 3, style = [point, line]); ошибочен: значение x в красном графике не может равняться -4, т. к. 1 не яля...
Markiyan Hirnyk
Чт окт 25, 2018 10:39 pm
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 4
Просмотры: 142

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

Еще один дефект.

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

series(log(factorial(n))/n, n = infinity, 1);
                              O(1)
MultiSeries:-series(log(factorial(n))/n, n = infinity, 1);
ln(n)-1+O(ln(n)/n)

Все, конец математики: 2 + 2 = 5 и 2 + 2 = 4.
Markiyan Hirnyk
Вт окт 23, 2018 10:19 pm
Форум: Maple
Тема: Дефект в команде Solve
Ответы: 4
Просмотры: 142

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
Ответы: 4
Просмотры: 142

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
Ответы: 4
Просмотры: 142

Дефект в команде 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
Просмотры: 279

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

Для начала прочитайте справку.