Можно ли ускорить выполнение программы VBA (Страница 2 из 3)

Этот вариант должен значительно ускорить поиск информации в массиве. Как решу свои объекты на старых алгоритмах, поэкспериментирую. Обязательно отпишусь. Спасибо.

Применял, но не для данного случая и в C++ и использовал стандартную сортировку из библиотеки C++.

Нет. Не перекроет. В моем варианте было порядка 15000 строк.

Нужно проверять.

Я только что проверил у себя на тестовом массиве из 15000 точек (почти реальная съемка). Время двойной (отдельно по X и отдельно по Y) сортировки - 15 миллисекунд. Полный алгоритм (на C++) получения для каждой из точек соседних точек (R = 200 метров) сработал за 30 секунд. Это я еще не занимался дополнительными оптимизациями. В моем примере максимальное количество "соседей" было 1200.

По вот этому алгоритму?

Const NN As Integer = 28224
Const R As Double = 100

Public Type Coord
    X As Integer
    Y As Integer
End Type

Dim VarCoord As Coord
Dim PointArray(NN) As Coord
'--------------------------------------

    
 Sub ArrayProcessing()
    Dim j As Long
    Dim NearestPoint As Integer
            
    j = 1
    For i = 1 To NN - 1
        NearestPoint = 0
        For j = 1 To NN - 1
            If (PointArray(i).X - PointArray(j).X) < R Then
            'check Y
                If (PointArray(i).Y - PointArray(j).Y) < R Then
                'check R
                    If ((PointArray(i).X - PointArray(j).X) ^ 2 + (PointArray(i).Y - PointArray(j).Y) ^ 2) ^ 0.5 < R Then
                       'Call Write_to_file(PointArray(i), PointArray(j))
                        NearestPoint = NearestPoint + 1
                    End If
                End If
            End If
        Next j
    Next i

Вот простенький код, который обрабатывает массив в 28 тыс. точек за 2.6 мин.
Файл VB.exe, компилятор оптимизирован по быстродействию. Среднее кол-во "соседних" точек - 175.

CPU 2.8GHz
RAM 2.0GB

Разумеется, массив получен не путем извлечения данных о точках из файла AutoCAD, а на стадии:

Вывод таков, если на практике автора программы устраивает такое время ее работы, то может быть и не стоит особо лезть в дебри.

И еще. Этот пример абстрактный и не зависит от распределения точек в пространстве. Однако, если известно что объект линейный и облако точек растянуто, например, по оси X, то стоит первый цикл проводить именно по этой оси (как в примере). Это позволит отсеять бОльшую часть точек на первом проходе.

Вот вариант зависит от того как часто вам эти операции необходимы.
Суть такова отдать все ваши данные базе к примеру бесплатной postgresql. Как то был опыт в картографии, и вопросы типо сколько домов находится вдоль реки в радиусе к примеру 1км, решались одним запросом. Если заинтересовало ищите postgres GIS http://postgis.refractions.net/

Маловато ускорилось!
...нелинейная...значит у тебя медленной операцией является не только расчет, и выборки данных.
Прочитай статьи типа "оптимизации программ на VBA", просмотри еще весь цикл обработки начиная с FOR и все что внутри.
Установи таймеры, комментируй строки с расчетами, выборкой, связями с Автокадом и т.д. ищи медленный код!
Посмотри нет ли во время выполнения циклов медленных операций, типа выведения текста в textbox :?:

...найдешь участки медленного кода...можешь выложить сюда или в соответствующих темах по оптимизации кода VBA

1. посмотри, есть ли на VBA, как и в c++,c#  ++nLoop1, вместо nLoop1 = nLoop1 + 1
2. Попробуй:
deltaX=PointArray(i).X - PointArray(j).X
If deltaX < R Then
            'check Y
              deltaY=PointArray(i).Y - PointArray(j).Y   
                If deltaY < R Then
                'check R
                    If (deltax*deltax+ deltaY*deltaY) < R*R Then
                       'Call Write_to_file(PointArray(i), PointArray(j))
                      nLoop2 = nLoop2 + 1
                    End If
                End If
            End If
            nLoop1 = nLoop1 + 1

Александр Ривилис,
на мой взляд поиск оптимального решения закончился постом от 01.11.2010 11:47:59 по достижении времени обработки массива - 30 сек. Свой вариант привел исключительно для демонстрации, того как можно ОЧЕНЬ ПРОСТЫМИ средствами достичь ВПОЛНЕ ПРИЕМЛЕМЫХ результатов. И эти варианты не конкурируют.

LeonidSN
....в итоге при 25 тысяч точек с 30 минут задача за сколько стала выполняться?

Начал писать код и понял, что у меня массив сформирован по слоям применительно к железной дороге:
m - id номера пути;
j - id путевой или непутевой точки.

Т.е. мои точки m,j имеют параметры: Nomer, X, Y, H, kod и для каждого пути они находятся в своем слое.

А код, приведенный в этой теме, по моим условиям задачи написан применительно к однослойному массиву точек. Возможно здесь моя самая большая проблема, в том числе и в отыскании оптимального алгоритма фильтрации соседей.

Думается так, нужно:
1.сформировать однослойный массив точек;
2.применить к нему алгоритм Александра Ривилиса.

Ты уже для них "соседей" нашел. Тебе просто нужно завести для каждой из точек массив, в который дописывать точку если определил, что она соседняя. Т.е. в результате у тебя будет N массивов соседей. Ну а если не хочешь это делать, то во втором цикле начинай с 1. В худшем случае время увеличится в 2 раза. И еще учти, что LeonidSN использовал VB. Думаю, что на VBA будет медленней и возможно значительно.