Приложения

Основные процедуры извлечения рабочих последовательностей из данных

Процедура Equal (проверяет равенство двух объектов):

Equal(object1,object2) begin

если objl = obj2 to return true иначе return false end

Процедура Concurrent (строит объект типа Concurrent):

Concurrent(cMTP[cgindex] ,cMTP [cgindex+1] , cMTP[cgindex+2] concurrent)

begin

добавляется в поле union.first объект cMTP[cgindex] добавляется в поле union.first объект cMTP[cgindex+2] union.second=cMTP[cgindex+1] end

Процедура add (добавляет объект в результирующий массив):

add (object) begin

добавляется объект object в result end

Процедура augmenter (увеличивает index на число, равное count):

augmenter (index,count) begin

index=index+count; end

Работа процедуры make_parallel (строит объект типа Parallel) зависит от входных параметров:

make_parallel(cMTP [cgindex] , cMTP [cgindex+1] ,parallel) begin

добавляется cMTP[cgindex]

в список left объекта parallel

добавляется сМТР[cgindex+1]

в список right объекта parallel

end

make_parallel(cMTP[cgindex],cMTP[cgindex+1], pMTP[index+2],parallel)

begin

добавляется cMTP[cgindex]

в список left объекта parallel добавляется cMTP [cgindex+1]

в список right объекта parallel добавляется pMTP[index+2]

в список right объекта parallel

end

make_parallel(cMTP}[cgindex] ,cMTP[cgindex+1], cMTP [cindex+2],parallel)

begin

добавляется cMTP[cgindex]

в список left объекта parallel добавляется pMTP[cindex+2]

в список left объекта parallel добавляется cMTP[cgindex+1]

в список right объекта parallel}

end

make_parallel(cMTP[cgindex],cMTP[cgindex+1],

cMTP[cindex+2],pMTP[index+2],parallel)

begin

добавляется cMTP[cgindex]

в список left объекта parallel добавляется pMTP[cindex+2]

в список left объекта parallel добавляется cMTP[cgindex+1]

в список right объекта parallel добавляется pMTP[index+2]

в список right объекта parallel}

end

Процедура make_condition (строит объект типа Condition).

Входные параметры:

1) cMTP — общий МТП;

2) рМТР — МТП текущего экземпляра класса Patient;

3) condition — объект Condition;

4) cind — выходной параметр, указывающий с какой позиции в общем МТП удалось найти одинаковое продолжение общего МТП и МТП текущего экземпляра класса Patient после условного перехода;

5) pind — выходной параметр, указывающий с какой позиции в МТП текщего экземпляра класса Patient удалось найти одинаковое продолжение общего МТП и МТП текущего экземпляра класса Patient после условного перехода;

6) cgindex — указывает, с какой позиции в общем МТП начинается условный переход;

7) index — указывает, с какой позиции в МТП текущего экземпляра класса Patient начинается условный переход.

make_condition(cMTP,pMTP,condition,cind,pind, cgindex,index)

begin arr [] ; b;

b=search(cMTP,pMTP,cind,pind,cgindex,index); если b=true TO begin

for (i=cgindex; i