Алгебра в программе Mathematica


         

в цепную дробь при любом



Пример 1


(Разложение этих чисел в цепную дробь при любом натуральном k было найдено Эйлером в 1737 году.) Вот нужная нам программа.
Do[Print[k,":",ContinuedFraction[Е^(2/k), 20]], {k,1,10}]
Если у цепной дроби количество звеньев меньше заданного, будет сгенерировано предупреждение. Вот как выглядят, например, результаты разложения корней из 2 в цепную дробь с 20-ю звеньями.

Содержание  Назад  Вперед