Проблемами поиска ассоциативных правил занимались различные ученые. А.Шахиди рассмотрел общие вопросы поиска ассоциативных правил [1]. М.Г.Асеев, В.А. Дюк [2] показали проблемы поиска if-then правил в данных. Систему нахождения бизнес-правил типа “if-then” в задачах транспортной логистики разработали И.А.Минаков, С.И.Вольман [3]. А.П.Корнилков, Т.В.Хабибулина показали реализацию поиска ассоциативных правил средствами языка программирования php [4]. Интерактивный анализ ассоциативных правил в базах данных изучался A.В.Бондаренко, А.С.Гудковым [5]. Е.В.Галкина исследовала ассоциативные правила в бизнес-анализе и контроле [6]. М.В.Терешонок применил поиск ассоциативных правил для анализа загрузки сетей сотовой связи [7]. Методику поиска ассоциативных правил при обработке данных в распределенных информационных системах показала Т.Ю.Горохова [8]. А.Ю.Краковецкий применял метод поиска ассоциативных правил на основе сильных наборов данных и fp-дерева [9]. А.Н.Шабельников, В.А.Шабельников исследовали поиск аномалий в технических базах данных временных рядов [10]. В.М.Гриняк и др. описали информационную технологию планирования сезонных продаж [11]. Р.И.Баженов, В.А.Векслер разработали конфигурацию для системы 1С: Предприятие по интеллектуальному анализу с поддержкой поиска ассоциативных правил [12-16]. Зарубежные ученые описывали применения метода в различных областях [17, 18]. 

Для реализации поиска ассоциативных правил был выбран достаточно простой алгоритм Apriori [1]. Опишем его.

Имеется база данных, которая состоит из покупательских транзакций. Каждая транзакция является набором товаров, приобретаемым покупателем за один раз. 

Пусть I = {i₁, i₂, i₃, …i_n} – множество (набор) товаров или элементов. Пусть D – множество транзакций, где каждая транзакция T представляет собой набор элементов из I, T  I. Каждая транзакция является бинарным вектором, где t[k]=1, если i_k элемент присутствует в транзакции, иначе t[k]=0. Транзакция T содержит X, некоторый набор элементов из I, если X T. Будем называть ассоциативным правилом импликацию X Y, где X I, Y I и X Y =. Правило X  Y имеет поддержку s (support), если s% транзакций из D, содержат X Y, supp(X Y) = supp (X Y). Достоверность правила показывает какова вероятность того, что из X следует Y. Правило X Y справедливо с достоверностью (confidence) c, если c% транзакций из D, содержащих X, также содержат Y, conf(X Y) = supp(X  Y)/supp(X ) [1].

Была разработана программа, реализующая алгоритм Apriori на Delphi. Покажем основную процедуру.

function TForm1.gen(cand : TList) : TList;
var
  i, j, k : Integer;
  set_len : Integer; { Длина общей части наборов при объединении}
  tSet, tSet1, tSet_new : PProdSet;
  new_cand : TList;
  equal : Boolean;
begin
  { Новый список наборов}
  new_cand := TList.Create;
  if cand = nil then
  begin
    { Одноэлементные наборы}
    for i := 0 to tovars.Count – 1 do
    begin
      { Новый кандидат}
      New(tSet);
      SetLength(tSet^.Items, 1);
      tSet^.Items[0] := i;
      tSet^.podder := 0;
      new_cand.Add(tSet);
    end;
  end
  else
  begin
    { Много элементные наборы}
    { Если в списке больше одного набора}
    if cand.Count > 1 then
    begin
      for i := 0 to cand.count – 1 do
      begin
        { Первый набор для объединения}
        tSet := cand.Items[i];
        { Длина общей части}
        set_len := High(tSet^.items);
        for j := i + 1 to cand.count – 1 do
        begin
          { Второй набор для объединения}
          tSet1 := cand.Items[j];
          if set_len < 1 then
            equal := true
          else
          begin
            { Сравниваем общие части наборов}
            equal := true;
            for k := 0 to set_len - 1 do
              if tSet^.Items[k] <> tSet1^.Items[k] then
                equal := false;
          end;
          if equal then
          begin
            { Новый набор}
            New(tSet_new);
            tSet_New^.podder := 0;
            { Длина нового набора}
            SetLength(tSet_new^.Items, set_len + 2);
            { Копируем первый набор}
            for k := 0 to High(tSet^.items) do
            begin
                tSet_new^.Items[k] := tSet^.items[k];
            end;
            { Добавляем остаток второго набора}
            tSet_new^.Items[set_len + 1] := tSet1^.items[set_len];
            { Добавляем новый набор в список кандидатов}
            new_cand.Add(tSet_new);
          end;
        end;
      end;
    end;

Данные предоставлены компанией, находящейся в г.Биробиджан. Они были выгружены из системы 1С:Предприятие 8, и представляют собой отчет по продажам за I квартал 2014 года. Данные были обработаны и представлены в формате .csv (рис. 1).

Рисунок 1 – Входные данные для анализа

Основное окно программы показано на рис.2.

Рисунок 2 – Окно программы с загруженными данными

После запуска алгоритма необходимо выбрать показатели, по которым будет осуществляться расчет (рис.3).

Рисунок 3 – Окно для выбора показателей

После проведения анализа, полученные правила выводятся в специальную область (рис. 4).

Результаты анализа можно сохранить в текстовом файле (рис. 5).

Рисунок 5 – Текстовый файл с результатами

Полученные в результате исследования ассоциативные правила были переданы руководству компании для принятия решений.

Таким образом, была разработана простая программа по поиску ассоциативных правил. Полученные в ходе исследования материалы можно использовать на практике для анализа выгруженных данных из 1С:Предприятие и для проведения соответствующей лабораторной работы в курсах «Интеллектуальные информационные системы», «Интеллектуальный анализ данных».