Быстродействие VBA

[Sasha_Smirnov]

В книге «VBA для „чайников”» сказано (шутя) о быстродействии Power Basic.

В связи с этим, а также преждевременной кончиной темы, прилагаю программу, запускаемую по Alt-s.

Впрочем, вступление писано в спешке, но кто интересутся — тот не зря потратит время.

[viter.alex]

Нужно попробовать.

[Sasha_Smirnov]

Под Windows XP для чисел до 500 000 000 моя программа находит все 3484 простых числа (вида АБВ *** ВБА — то есть симметричных), и делает она это за 115 секунд при частоте процессора 2,4 ГГц (что важно: при 0,2 ГГц — тот же расчёт идёт минут 40). При всём при этом за секунду анализируется (на их простоту) около 5 млн (4371584 по счётчику) чисел.

Для чисел включительно до 200 000 000 время 42 секунды. До 1 млн — меньше секунды.

Вот «переиспытал» на пределе 500 миллионов — отключив в документе автоматическую и контекстную проверку орфографии: 5,1 млн номеров в секунду и соответственно 98 секунд работы, вместе с печатью (в файл).

Преобразование в таблицу полученных 3484 строк заняло ещё секунд 6.

[Sasha_Smirnov]

Добавил шестнадцатеричный и четверичный (запуск по альт-шифт-S) вид. Кстати, опрос ещё открыт!

Убоявшимся лезть внутрь — вот замечательный фрагмент (система счисления на выбор!). За English не ручаюсь.

MsgBox IIf(Application.Keyboard = 68748313, "Выбор основания системы счисления...", "Choosing of numeration base...")

Do
answer = MsgBox("16?", vbQuestion + vbYesNoCancel): NBase = 16
    Select Case answer
    Case vbCancel:  Exit Sub
    Case vbYes:     Exit Do
    End Select
    
answer = MsgBox("10?", vbQuestion + vbYesNoCancel): NBase = 10
    Select Case answer
    Case vbCancel:  Exit Sub
    Case vbYes:     Exit Do
    End Select
    
answer = MsgBox("8?", vbQuestion + vbYesNoCancel): NBase = 8
    Select Case answer
    Case vbCancel:  Exit Sub
    Case vbYes:     Exit Do
    End Select
    
answer = MsgBox("4?", vbQuestion + vbYesNoCancel): NBase = 4
    Select Case answer
    Case vbCancel:  Exit Sub
    Case vbYes:     Exit Do
    End Select
    
answer = MsgBox("2?", vbQuestion + vbYesNoCancel): NBase = 2
    Select Case answer
    Case vbCancel:  Exit Sub
    Case vbYes:     Exit Do
    End Select
Loop

В качестве «гимнастики ума» предлагаю сократить.

[Sasha_Smirnov]

Да... Четверичный вид раз в 15 замедлил подсчёт.

На отрезке до 510 млн 3647 Hex-перевёртышей (из имеющихся 26 854 252 простых чисел) моя программа нашла за 32 мин (точнее, 1914 с).

При том что было отключено автосохранение и проверка орфографии, а также аваст.

Док с листингом прилагаю. (Листинг в смысле «список».)

Ну какой язык то же самое (в пяти системах счисления) даёт минут за 5 хотя бы?

[Sasha_Smirnov]

Но в том и прелесть алгоритма, что не надо хранить архивы.

Как обнаружил Тоха с киберфорума, 2 число простое! Ниже я это учёл.

[Sasha_Smirnov]

Более удачным полигоном оказалась тема от Simbad 8 марта 2010:
http://programmersforum.ru/showthread.php?p=473254

И вообще гости как-то активнее, да? 2 месяца не отставал; заодно и русский подтянул (что нам студентам как бы и не к лицу)! И даже 1 реферал имеет... а я так и не понял, где их брать.

[Skif-F]

Небольшое (порядка 5%) ускорение без изменения алгоритма:

Dim M As Long
M = Fix(Sqr(N))
For i = 3 To M Step 2
    If flags(i) = 1 Then
        For j = i + i To N Step i
            flags(j) = 0
        Next j
    End If
Next i

[Sasha_Smirnov]

5% хорошо! 3 секунды за минуту. Но на 3 порядка... я был поражён.

5%, видимо, даёт однократное (а не в каждом цикле) вычисление корня?

[Skif-F]

Не только.
Замена цикла Do...Loop на For...Next, тоже даёт некоторый прирост (2-3%). Суди сам, операции:

j = i + i
Do While j <= N
     ...
     j = j + i
Loop

заменяем на:

For j = i + i To N Step i
   ...
Next j

Вообще, году в 93-95 купил я книгу "128 советов начинающему программисту" - рекомендую прочитать, если найдёте (несмотря на давность, своей актуальности она не потеряла) - там много "советов" было посвящено именно оптимизации программ по времени выполнения. Вот я и применяю на практике то, что помню.