Maple. Найти сумму всех корней уравнения

@elenaiv0101 · Регистрация: 03.11.2022

Author24 — интернет-сервис помощи студентам

В Maple у меня есть задача и ответ. Мы работаем в Maple15.
Условие: Найти сумму всех корней уравнения $https://www.cyberforum.ru/cgi-bin/latex.cgi?{({x}^{2}-3x)}^{2}-2{(x-3)}^{2} = 2$ [/SIZE] . Ответ: 4 .
Вроде все делаю правильно, как нам показывали, а с ответом не сходится. Ответ в задаче у меня 6, а в условии ответ 4.
Где ошибка, кто-нибудь может подсказать

Код

eqn := (x^2-3*x)^2-2*(x-3)^2 = 2; 
local i, res, sum := 0 : 
res := [solve(eqn, x)] : 
print(res); 
for i to nops(res) do 
sum := sum+res[i] :
end do: 
print(sum);

@Red white socks · 17.04.2024, 23:28

У написанного уравнения ответ, очевидно 6, без всякого Maple.

iifat · 18.04.2024, 08:17

То ли описка в задании, то ли кратные корни один раз суммируются (не проверял, есть ли кратные корни). С учётом кратности определённо 6.

@elenaiv0101 · 18.04.2024, 16:13 **[ТС]**

А как это сделать?

Добавлено через 19 минут
вот так

Код

eqn := (x^2-3*x)^2-2*(x-3)^2 = 2; 
sum := 0; 
res := [solve(eqn, x)]; 
print(res); 
for i to nops(res) do 
if irem(res[i], res[i+1]) <> 1 then 
sum := sum+res[i] 
end if 
end do; 
print(sum)

Ответ получился 4, но у меня почему-то Maple ругаться стал Error, invalid subscript selector
Как убрать это?

@VSI · 18.04.2024, 17:43

elenaiv0101, можно по образу и подобию (с умножением...)

Комментарий модератора

Отдельное СПАСИБО Centurio!!!

Maple. Найти сумму всех корней уравнения

@Royal_X · 18.04.2024, 20:42

elenaiv0101, в одну строку

Код

convert([solve((x^2 - 3*x)^2 - 2*(x - 3)^2 = 2)], `+`)

@elenaiv0101 0 / 0 / 0 Регистрация: 03.11.2022 Сообщений: 140
		1
	Maple. Найти сумму всех корней уравнения 17.04.2024, 23:08. Показов 474. Ответов 5 Метки нет (Все метки) В Maple у меня есть задача и ответ. Мы работаем в Maple15. Условие: Найти сумму всех корней уравнения $https://www.cyberforum.ru/cgi-bin/latex.cgi?{({x}^{2}-3x)}^{2}-2{(x-3)}^{2} = 2$ [/SIZE] . Ответ: 4 . Вроде все делаю правильно, как нам показывали, а с ответом не сходится. Ответ в задаче у меня 6, а в условии ответ 4. Где ошибка, кто-нибудь может подсказать Код eqn := (x^2-3x)^2-2(x-3)^2 = 2; local i, res, sum := 0 : res := [solve(eqn, x)] : print(res); for i to nops(res) do sum := sum+res[i] : end do: print(sum); 0

@Red white socks 4318 / 1866 / 334 Регистрация: 18.01.2021 Сообщений: 3,445
	17.04.2024, 23:28	2
	У написанного уравнения ответ, очевидно 6, без всякого Maple. 2

iifat 2735 / 1815 / 200 Регистрация: 05.06.2011 Сообщений: 5,253
	18.04.2024, 08:17	3
	То ли описка в задании, то ли кратные корни один раз суммируются (не проверял, есть ли кратные корни). С учётом кратности определённо 6. 2

@elenaiv0101 0 / 0 / 0 Регистрация: 03.11.2022 Сообщений: 140
	18.04.2024, 16:13 [ТС]	4
	А как это сделать? Добавлено через 19 минут вот так Код eqn := (x^2-3x)^2-2(x-3)^2 = 2; sum := 0; res := [solve(eqn, x)]; print(res); for i to nops(res) do if irem(res[i], res[i+1]) <> 1 then sum := sum+res[i] end if end do; print(sum) Ответ получился 4, но у меня почему-то Maple ругаться стал Error, invalid subscript selector Как убрать это? 0

@Royal_X 4144 / 1969 / 958 Регистрация: 01.06.2021 Сообщений: 6,965 Записей в блоге: 6
	18.04.2024, 20:42	6
	elenaiv0101, в одну строку Код convert([solve((x^2 - 3x)^2 - 2(x - 3)^2 = 2)], `+`) 3