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


Пример 1



Пример 1




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








Начало  Назад  Вперед


Книжный магазин