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


Пример 26



Пример 26




А вот как узнать, насколько фактически эти цифры отличаются от среднего, 10n.
DigitCount[IntegerPart[10^(10^(n+1))* FractionalPart[N[E,10^(n+1)+10]]]]-10^n {1,1,-1,О,-1,-1,0,3,-!,-!}
А теперь посчитаем относительные отклонения от среднего.
N[(DigitCount[IntegerPart[10^(1СГ (n+1))* FractionalPart[N[E,10^(n+1)+10]]]]-10^n)/10^n,4] {1.000,1.000,-1.000,0,-1.000,-1.000,0,3.000,-1.000,-1.000}
Ну а теперь мы можем составить таблицу таких отклонений для n = 0, 1, 2, 3, 4, 5.








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


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