Пример 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} ]
Результаты оформлены в виде таблицы.
Посмотрите внимательно на третий и четвертый столбцы этой таблицы. Вы увидите нечто весьма интересное: