+++Pairwise comparison in Excel

[Polychemist]

Не, я сдаюсь, я не телепат... Вам самому то алгоритм известен? Если да - опишите его словами на основе приведенного примера... Или надо угадать, как из одной таблицы появилась другая, а потом третья? Но если Вы смогли сделать пример - значит знаете правила! Ну так скажите же их!

[ИСН]

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

[Serty]

Попробую изложить, как я понял. Левый столбец(302 итд) - имена "свойств", верхняя строка - номера "образцов", каждому из которых присваивается битовая строка наличия "признаков". Задача - построить таблицу идентичности образцов. Я правильно понял? С подобными задачами сталкивался часто, но искалась как правило не идентичность, а коэффициент сходства(в частности по Танимото) битовых строк. Однако у меня количество "образцов" как правило было таким, что и мысли о Exсel не возникало . Отсюда вопрос - вам важна именно Excel таблица, или достаточно найти все кластеры идентичных "образцов"?

[tyler111]

Все верно - необходимо сравнить "образцы", а использование коэффициент сходства потребует введения дополнительной информации. Я же и говорю, что алгоритм не очень-то сложный. Только как его использовать если будет 40-50 образцов и 20-30 свойств
Да как раз и интересует Excelвская реализация, дабы не заморачиваться еще с каким-либо софтом.

[Serty]

По моему самое простое, нарисовать один раз 50х30 один раз в том стиле как у вас, а потом подставлять данные через Copy/Paste. Вот только цвета придется вручную, но это не долго. Впрочем может в более современных вариантах можно и с цветами. Мне кажется, что вы потратите часик времени, и все выйдет быстрее чем писать и отлаживать макрос.

[ИСН]

Цвета там уже сделаны на conditional formatting, а так да, вариант.

[Ramus]

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

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

Sub Compare()

Set reg = Selection
r = reg.Rows.Count
c = reg.Columns.Count


For i1 = 1 To c
    For i2 = i1 To c
    flag = False
        For i3 = 1 To r
        If reg.Cells(i3, i1) <> reg.Cells(i3, i2) Then
            flag = True
            Exit For
        End If
        Next i3
        If flag Then
            reg.Cells(i2 + r + 5, i1) = 0
        Else
            reg.Cells(i2 + r + 5, i1) = 1
        End If
    Next i2
Next i1

End Sub

[tyler111]

Ramus, премного благодарен. Это оно !
Всем спасибо.