Сравнить два массива

[Orastar]

Есть задача: Нужно сравнить два массива по 10 чисел в каждом, и вывести на экран совпадения в массивах. Т.е. например и в массиве a и в массиве b есть число 7 - нужно вывести на экран кол-во совпадений и само число, которое встречается в массивах 9в данном случае совпадение одно и число 7)
Заранее спасибо за помощь.

[alibek]

Ну, для начала так:

Код: Выделить всё

Dim I1 As Long, I2 As Long, C As Long
For I1 = 1 To 10
  C = 0
  For I2 = 1 To 10
    If A(I1) = B(I2) Then C = C + 1
  Next I2
  If C > 0 Then Print "Number: "; A(I1); ", count: "; C
Next I1


[Orastar]

Вроде все работает, только счетчик не накручивается - все время 1 ...

[i'm pissed]

покажи исходняк

[Orastar]

Все, разобрался. надо было просто добавить еще одну переменую для счетчика и вынести ее за цикл. Всем спасибо.

[Sofist]

Здравствуйте.. я вижу что ответом на вопрос темы стало примение цикла.. У меня тогда возникает другой вопрос. Мне необходимо сравнить элементы не одномерного массива, состоящего из 10 элементов, а два трехмерных массива с большим количеством элементов. Допустим Q1(1 to 3, 1 to 500, 1 to 800) и Q2(1 to 3, 1 to 500, 1 to 800). При сравнении, с помощью цикла, это все происходит достаточно долго, даже очень долго.. Возможно ли ускорить этот процесс?.. путем примениеня API-функции или как-нибудь по другому?..

[alibek]

Это один миллион двести элементов.
При попарном сравнении будет 1440 миллиардов операций, естественно будет долго.
Если надо вести учет сравнений, то API тебе ничем не поможет. Тут оптимизация нужна и упорядочивание исходных списков.
Если же нужно определить только сам факт, равны массивы или не равны, то... CompareMemory все-равно нет, но можно сравнивать хеши или CRC. Только чтобы это имело смысл (в плане скорости сравнения), эти хеши надо вычислять до сравнения, в момент заполнения массивов.

[Sofist]

Нет.. Сам факт что они различны не нужен.. эти два массива практически всегда различны.. Тут вся фигня состоит в том, что еще нужно определить попадает ли элемент массива Q2 в определенный интервал вокруг соответсвующего элемента массива Q1. К примеру
If Q1(1,1,1) + 5 > Q2(1,1,1) And Q1(1,1,1) - 5 < Q2(1,1,1) And_
Q1(2,1,1) + 5 > Q2(2,1,1) And Q1(2,1,1) + 5 > Q2(2,1,1) And_
Q1(3,1,1) + 5 > Q2(3,1,1) And Q1(3,1,1) + 5 > Q2(3,1,1) Tnen
И это все должно происходить быстро..

[alibek]

Напрямую никак, только попарным сравнением.
Оптимизируй процесс.

[Sofist]

А в каком смысле оптимизировать процесс? Куда уж проще??

[tyomitch]

Если же нужно определить только сам факт, равны массивы или не равны, то... CompareMemory все-равно нет

Как это нет, когда есть?
ntdll!RtlCompareMemory

[GSerg]

Имелось в виду "всё равно не подходит", имхо...

[Sofist]

tyomitch, а можно поподробнее о ntdll!RtlCompareMemory?. я человек еще далекий от тонкостей VB и пока не понимаю просто ntdll!RtlCompareMemory...

[alibek]

Она тебе не поможет. Она не возвращает список отличий, она только число отличий дает.

[Sofist]

Жаль.. ну, ладно, СПАСИБО.. хоть понял теперь в каком направлении двигаться...

[tyomitch]

Она тебе не поможет. Она не возвращает список отличий, она только число отличий дает.

И даже его не даёт -- только положение первого отличия.

[alibek]

Разве? Я так понял, она возвращает число совпадений байт:

RtlCompareMemory returns the number of bytes that compare as equal. If all bytes compare as equal, the input Length is returned.

[Konst_One]

автору сюда: http://www.mathworks.com/products/matlab/
и еще изучать курс "Матричные вычисления"

вот еще по теме:
1. http://tutornet.nsu.ru/Library/Books/Ma ... %201/1.htm
2. http://www.fftw.org
3. http://met.sourceforge.net/
4. http://72.14.253.104/search?q=cache:eM6 ... lr=lang_ru
5. Ссылки на математические ресурсы: http://www.exponenta.ru/educat/links/l_educ.asp

[tyomitch]

Разве? Я так понял, она возвращает число совпадений байт:

RtlCompareMemory returns the number of bytes that compare as equal. If all bytes compare as equal, the input Length is returned.

Ну, действительно неоднозначно написано. Но там внутри именно cnt=count; while (*p1++==*p2++ && cnt--) ; return count-cnt; (я только что заглянул и посмотрел)