Exponenta.ru

Извините, мне нечего обсуждать с Вами в таком стиле.

Пожалуйста, конкретизируйте ваш вопрос. В такой общей формулировке на него невозможно содержательно ответить. Высказывание

Мне надо сделать, чтоб формально получить решение, ну оно, скорей всего, не уверен в этом, будет выглядеть так:

просто несерьезно и не производит положительное апечатление.

Следующее "достижение" Мэйпла 2019 свидетельствует о низкой математической культуре разработчиков Мэйпла: simplify(1/(GAMMA(1-n)*GAMMA(n))) assuming n::integer 0 Упрощаемое выражение не определено для целых значений аргумента, т.е упрощать нечего. Оно является аналитической функцией в комп...

Сегодня анонсирован Мэйпл 2019, больше сведений здесь. На первый взгляд ничего сенсационного. Надеюсь в течение нескольких недель получить к нему доступ и тогда изложу свое мнение. В ближайшие недели ожидается Математика 12, можно будет сравнить эти системы. Приглашаю коллег к обсуждению.

Еще одна ошибка: a := int(frac(x^3)*sin(x), x = 2*Pi*n .. 2*Pi*n+Pi)assuming n::posint; 16*Pi^3*n^3-24*Pi*n-trunc(8*Pi^3*n^3)+12*Pi^3*n^2+6*Pi^3*n+Pi^3-trunc(8*Pi^3*n^3+12*Pi^3*n^2+6*Pi^3*n+Pi^3)-6*Pi evalf(eval(a, n = 10)); -772.4898, но ведь подинтегральная функция неотрицательна...

Отрадно, что Мэйпл берется находить сложные интегралы restart; J := int(cos(t)^2*sqrt(a*cos(t)^2+b*sin(t)^2+m^2), t = 0 .. 2*Pi); J:=-(4/3)*(((m^2+a)/(a-b))^(1/2)*(m^2+a)^(1/2)*(-2*(-(a-b)*(m^2+b))^(1/2)*((m^2+a)/(a-b))^(1/2))^(1/2)*((-(a-b)*(m^2+b))^(1/2)*((m^2+a)/(a-b))^(1/2))^(1/2)*((a*m^2-b*m^2+...

Иной способ - применить DirectSearch : DirectSearch:-SolveEquations([Eq1, Eq2, Eq3, Eq4]); [40.031052155562236, Vector[column](4, [2.51100392017952600, -5.12179680447659802, 2.00180886191407836, -1.86704853777850665]), [x = 1.3750376843913412, y = 1.376545071174689], 50] Сумма квадратов отклонений р...

Для этого надо знать гамильтонан (см. poincare и другие команды пакета Poincare). Я не специалист в этом материале и больше ничем помочь не могу.

Рассмотрим график функции restart; Student[Calculus1]:-FunctionPlot((x-floor(x))*sin(Pi*x)^2, x = -3 .. 2) Фенкция, заданная выражением (x-floor(x))*sin(Pi*x)^2, дифференцируема на всем множестве действительных чисел. Для нецелых значений аргумента это понятно, а для целых, например 1, можно доказат...

производит нечто страшное, печальное и политическое (см. результат в Мэйпле 2018.2 на Виндовс 10 32-бит).

Еще ошибка и в RealDomain:-solve и в Roots: restart; with(RealDomain): solve(log(x*(x+9)) = log(x/(x+9)), x); -8, -10 restart; Student[Calculus1]:-Roots(log(x*(x+9)) = log(x/(x+9))); [-10, -8] Понятно, что -8 -- сторонний корень. Как видим, мэйплсофтовская математика отличается от традиционной матем...

Kitonum, Спасибо. Виноват, не доглядел.

restart; solve(S1^2*w1^2+S2^2*w2^2+S3^2*w3^2+2*S12*w1*w2+2*S13*w1*w3+2*S23*w2*w3 = SG^2, S1P*w1+S2P*w2+S3P*w3 = SGP, w1*ws1+w2*ws2+w3*ws3 = 1, {w1, w2, w3}); Error, invalid input: too many and/or wrong type of arguments passed to solve; first unused argument is S1P*w1+S2P*w2+S3P*w3 = SGP Некачестве...