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


Пример 16



Пример 16



(приближение Чебышева и Лежандра), в качестве второй — 1л(х) (приближение Гаусса), а в качестве третьей — R(x) (приближение Римана). Сначала определим функцию R(x).
Riemann[x_]:= Last[Block[{R=LogIntegral[x],y=LogIntegral[Sqrt[x]]/2,n=2}, {While[y>0.000000001,{R=R-y; n=n+l;y=LogIntegral[х^(1/n)]/n} ],R} ]]
Теперь можем построить нужные нам графики.








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


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