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


         

Вот как растет файл подкачки



Пример 5



Рисунок 5.1. Вот как растет файл подкачки
Хотя мы и получили довольно интересные результаты, завершение вычислений было несколько неожиданным. Давайте попробуем с основанием 7.
base=7;Do[Print[{n,LargestPrimeGap[bаsе^n]}], {n,2,15}] {2,6} {3,14} {4,34} {5,44} {6,72} {7,114} {8,154} {9,210}

На сей раз предупреждение не появилось, но вычисления пришлось прервать. На экране Диспетчера задач Windows хорошо видно плато, где загрузка ЦП высока, и почти отвесное ее падение (Рисунок 5.2).

Содержание  Назад  Вперед