Как можно ускорить VB макрос для пакета Statistica?

Question

[doves]

Подскажите, как можно ускорить этот код. Он подсчитывает частоту встречаемости 85-ти значений переменной NUM в каждой строке массива ABCDE, перебирая 13^5*5 колонок, и помещает результат в массив FREQUENCY, затем результат переносится в таблицу на экране. Сейчас на каждое из 85 значений уходит порядка 4-х минут, т.е. в сумме получается около 6-ти часов, что ОЧЕНЬ долго. Буду признателен за идеи, как можно ускорить

Sub Main
 '--------------------Counting the frequency of numbers in the range from -25 to 60--------------
  Dim FREQUENCY(1 To 250, 1 To 85) As Long
    For NUM = -25 To 60                               
        v = v+1
        For row = 1 To 250                          
            For col = 1 To 13^5*5               
                If ABCDE(row, col) = NUM Then FREQUENCY(row, v) = FREQUENCY(row, v) + 1 
            Next col
        Next row
    Next NUM
    v=0
 '-----------------------Writing the results to the table on the screen--------------------------
    For row = 1 To 250
        For j = 1 To 85
            TABLE(row, j) = FREQUENCY(row, j)
        Next j
    Next row
 
End Sub

Answer 1

[15432]

Что за жесть тут написана. Верхний For убираем нафиг, ускоряем в 85 раз.
Вместо него сразу проверяем значение на вхождение в промежуток [-25,60] и сразу обновляем массив Frequency[NUM +25]

Comments

[doves]

Если я правильно понял ваше предложение, 15432, то необходимо вместо цикла с NUM написать такую строку "If ABCDE(row, col) = -25 Then FREQUENCY(row, 1) = FREQUENCY(row, 1)+1" для каждого из 85 значений от -25 до 60. Я так сделал - время выполнения сократилось до 4-х часов, что все-равно много. Как еще можно сократить? Убрать теперь цикл для row и прописать напрямую номера 250 строк? ))

[15432]

Не знаю синтаксис бейсика. Что-то типа этого:

For row = 1 To 250
For col = 1 To 13^5*5
Dim num As Integer = ABCDE(row, col)
If num >= -25 And num <= 85 Then
FREQUENCY(row, num + 25) += 1
End If
Next col
Next row

[doves]

15432: Рабочий код получился такой. Работает великолепно - все делает за 15 минут вместо 5 часов! Спасибо за идею!

For row = 1 To 250
For col = 1 To 13^5*5
num = ABCDE(row, col)
If num >= -25 And num <= 60 Then
FREQUENCY(row, num+25) = FREQUENCY(row, num+25) + 1
End If
Next col
Next row

Answer 2

[Jony1337]

Сделать другой алгоритм выполнения задачи тогда будет быстрее .

Comments

[doves]

Можете подать идею более быстрого алгоритма?

[Jony1337]

"Он подсчитывает частоту встречаемости 85-ти значений переменной " примеры значений можно ?

[doves]

Jony1337: они указаны в коде в этой строке For NUM = -25 To 60