Для системы уравнений:
действительные решения:
Я пытаюсь выразить
через
, получил пока только рекурсивную зависимость:
Не получается выразить
Код Mathematica:
(Оффтоп)
Код:
(* X[k] *)
x[1] = 1/(2 - 2^(1/3));
x[k_Integer] := 1/(2 - 2^(-2/((2 k - 1) (2 k + 1))) (2 - 1/x[k - 1])) /; k >= 2;
Grid[Table[{x[i]}, {i, 1, 5}], Frame -> All, ItemStyle -> 24]]
Извиняюсь, все получилось (супруга решила
), сам тупил, думал, что там непрерывная дробь. Ответ:
Код Mathematica:
(Оффтоп)
Код:
x[1] = 1/(2 - 2^(1/3));
y[1] = 1 - 2 x[1];
x[k_Integer] :=
1/(2 + y[1]/x[1] 2^(-(2/3) (k - 1)/(2 k + 1))) /; k >= 2;
Grid[Table[{x[i] // Simplify}, {i, 1, 5}], Frame -> All,
ItemStyle -> 24]