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


Пример 29



Пример 29




Составим таблицу разложения их в цепные дроби. Сначала определим нужные нам функции.
Fnl[n_]:= Sqrt[n^2+1] Fn2[n_]:=  Sqrt[n^2+l]/2 Fn3[n_]:=  Sqrt[n/42 + l]/n
Вот как выглядит программа для разложения этих иррациональностей.
Do[Print[n,":", ContinuedFraction[Fnl[n]],":", ContinuedFraction[Fn2[n]]   ," : ", ContinuedFraction[Fn3[n]]],{n,1,100} ]
Результаты оформлены в виде таблицы.

Посмотрите внимательно на третий и четвертый столбцы этой таблицы. Вы увидите нечто весьма интересное: 







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