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

[Sasha_Smirnov]

Сообщение от Skif-F

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

Вот я и применяю на практике то, что помню.

For j = i ^ 2 To N Step i
   ...
Next j

(от самого Пифагора!) ещё быстрее. Чуть-чуть.

[Казанский]

Сообщение от Sasha_Smirnov

Убоявшимся лезть внутрь — вот замечательный фрагмент (система счисления на выбор!)...
... В качестве «гимнастики ума» предлагаю сократить.

Если говорить конкретно про этот кусок кода, то так:

'x должен иметь тип Variant
Do
    For Each x In Split("16 10 8 4 2")
        answer = MsgBox(x & "?", vbQuestion + vbYesNoCancel)
        If answer = vbCancel Then Exit Sub
        If answer = vbYes Then Exit Do
    Next
Loop
NBase = Val(x)

Хотя более логично было бы создать форму с комбобоксом или радиобатонами.

'Берём для начала все нечётные положительные числа, за исключением единицы.'
For i = 3 To N Step 2: flags(i) = 1: Next i

Зачем держать в массиве элементы, соответствующие четным числам? Лучше сразу их исключить, т.е. подразумевать под элементами массива числа 3, 5, 7 и т.д. Да, адресация массива немного усложнится, зато массив станет в 2 раза меньше (или при том же объеме памяти можно достичь в 2 раза большего числа), и цикл по четным не нужен.
А еще интереснее сделать так, чтобы числу соответствал 1 бит, а не байт.

[Sasha_Smirnov]

Сообщение от Казанский

А еще интереснее сделать так, чтобы числу соответствал 1 бит, а не байт.

Вот-вот-вот, как сказал бы Ленин.

Тема «подпитывается» раз в год, и я сам уже теряю интерес.

Вообще замечательно, что поддержали. Надежда не умерла! Спасибо.

Конечно, из моих тем многое сделано кустарно, «малой кровью», и особенно транскрипция (http://programmersforum.ru/showthread.php?t=54187). Но аналогов-то нет!

[Sasha_Smirnov]

И вот, 430 дней спустя, на почве темы Подсчет вероятности встречи в тексте двухсимвольных сочетаний вызрел очередной продукт для испытаний на скорость.

Программа с кнопкой — в папа-мама.doc’е; параметры машины — на рисунке.

Ниже мои результаты для сочетаний букв (от 1 до 6) с временами расчёта. Для одной буквы — все, для нескольких — самые частые группы.

01c 01f 01h 01y 02ъ 03b 03d 03l 03u 04s 04t 05M 05o 05r 06n 07э 08a 08ё 10e 14V 17ф 17щ 25ц 26X 31ю 39I 55ш 61Х 83ж 93ч 119я 122з 131б 133й 136г 158ы 162п 176ь 208у 212к 243д 256м 289р 314в 325С 351л 399т 448и 489н 498а 563е 674о (18,4 с)

16бр 16жи 16из 16кр 16ну 16пи 16са 16св 16сь 17аз 17еж 17ей 17же 17ку 17нь 18ив 18Чт 18ых 18ьн 19дн 19му 19нн 19ят 20бы 20ди 20Пе 20ча 21ий 21ки 21ми 21уж 22ви 22ев 22об 22ок 23ад 23ар 23ля 23ся 23че 24им 24ти 25бо 25вс 27ис 28ес 28ру 29ас 29ед 29за 29Сл 30до 30ри 30ск 31ав 31тр 32Ак 32ве 32вы 33ег 33се 34ла 35ме 35от 35те 36ам 36ем 36Ин 38ль 38ор 39да 39ер 39ый 40ва 40го 40ил 41ом 41пр 42ан 43ел 43ог 43ос 44ол 45мо 45од 46ли 46ло 47ле 47ов 49де 49ит 49ко 49ре 50ны 50ой 50та 51ро 52ат 54ал 55во 55то 56ка 57ни 61он 61по 62ен 64ра 64ст 66ет 70на 82ть 87но 90не (13,7 с)

08ало 08ате 08Всё 08гда 08еги 08ере 08Еще 08зна 08ист 08ись 08Ког 08ком 08Кон 08лов 08мел 08нет 08ний 08ник 08ним 08ног 08ого 08оди 08ото 08пер 08пис 08Пол 08ред 08род 08ски 08тра 09вер 09вый 09гин 09лся 09нег 09нем 09ным 09рав 09раз 09рас 09руг 09ско 09сле 09сти 09тьс 09ься 10али 10ани 10для 10дру 10ень 10мен 10мог 10мой 10оро 10при 10ьны 11был 11ват 11ему 11ных 11ова 11одн 11оль 11оне 11пос 11сво 11ять 12вол 12ель 12енн 12лис 12нны 12ост 12стр 12тал 12там 13Все 13ени 13ран 14дет 14лет 14про 14тел 15ной 17его 17ста 18как 18льн 18Что 20ить 23ный 34ать (9,1 с)

04азат 04анил 04вген 04влят 04воей 04восп 04день 04дума 04Евге 04енно 04енья 04жден 04зать 04каза 04наде 04ност 04одет 04опат 04пере 04пото 04рада 04разд 04свет 04свое 04Свои 04ский 04след 04слуш 04став 04ство 04трас 04учен 04фран 05ался 05блис 05Всех 05ений 05иста 05лист 05лись 05нако 05прав 05рани 05ской 05Слов 05Стра 06ател 06гени 06ельн 06оват 06одил 06посл 06пред 07воль 07друг 07егин 07енны 07Когд 07льно 07лять 07нный 07огда 07одно 07ольн 07Онег 07стал 08неги 09ться 10вать 10льны 10тель (5,7 с)

03Monsi 03nsieu 03onsie 03sieur 03авлят 03анцуз 03арств 03аться 03вдруг 03Готов 03довол 03думат 03ежной 03забав 03знако 03ились 03истал 03итель 03ическ 03льный 03льным 03наком 03ольны 03опать 03ослуш 03после 03послу 03равно 03ранцу 03рство 03Своих 03следн 03слушн 03стави 03Театр 03трада 03траст 03ужден 03умать 03учены 03Франц 03хлопа 03Храни 03чался 04азать 04вгени 04влять 04гений 04Евген 04ельны 04енный 04казат 04ольно 04ранил 04своей 04Страс 05блист 05листа 05овать 05тельн 06атель 06вольн 07Когда 07негин 07Онеги (25 с)

03Monsie 03nsieur 03onsieu 03авлять 03арство 03ательн 03думать 03знаком 03листал 03ослушн 03послуш 03ранцуз 03страст 03тельны 03Францу 04вольно 04Евгени 04казать 05блиста 07Онегин (3,0 секунды)

[Skif-F]

Саш, провоцируешь?
А чего обновление экрана не заблокировал? - двухкратное сокращение времени!
У меня это с 22 до 10 секунд на твоих базовых настройках

[Sasha_Smirnov]

Я знал!!! Спасибо. А мои базовые — это объём текста?

Если гость этой темы увидит, что программа «не заводится» хотя бы 10 секунд, он её просто сбросит.

[Skif-F]

да, твой файл и установленную тобой разбивку на 4 символа

[Skif-F]

Ну вот, выбрал на работе свободную минутку и накидал свой вариант. Отличие от твоего только в способе поиска последовательностей - заменил поиск по .Find на работу с символами.
На 4 символах даёт двухкратный рост производительности. Проверь, возможно я ошибаюсь.

[Sasha_Smirnov]

А я вот всё собираюсь испытать это на Словаре (Dictionary) — там сортировка мощнее и проще.

Рисунки 1 и 2 демонстрируют аж 21-кратное ускорение вашего кода относительно моего!

[Skif-F]

Вот ещё вариант. Тут более серьёзные изменения.