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


Пример 5



Пример 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).









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


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