Курсовой проект групп 3341 и 3382 / DMAssociations / RuleItem

unit RuleItem;

interface
uses
ItemSet,
dmmTypes,
uContainers,
Instances,
DoubleObject,
DmmConstants,
math,
Classes,
SysUtils;

type
TDMRuleItem = class (TObject)

public
//левая часть правила
m_premise : TDMItemSet;

//правая часть правила
m_consequence : TDMItemSet;

//ожидаемая точность предсказания
m_accuracy : double ;

m_genTime : integer;

m_OwnValues : boolean;

m_OwnValuesCons : boolean;

public

constructor Create(premise : TDMItemSet; consequence : TDMItemSet;
OwnValuesItems : boolean = false); overload;
constructor Create(premise : TDMItemSet; consequence : TDMItemSet;
genTime : integer; ruleSupport : integer;
OwnValuesItems : boolean = false); overload;

property OwnValues: Boolean read m_OwnValues write m_OwnValues;
property OwnValuesCons: Boolean read m_OwnValuesCons write m_OwnValuesCons;

function premise() : TDMItemSet;
function consequence() : TDMItemSet;
function equals(o : TObject) : boolean;
function accuracy() : double;
function compareTo(o : TObject ) : integer;
destructor Destroy;override;

end;


implementation

constructor TDMRuleItem.Create( premise : TDMItemSet; consequence : TDMItemSet;
OwnValuesItems : boolean = false);
begin
m_premise := premise;
m_premise.OwnValues := OwnValuesItems;
m_consequence := consequence;
m_OwnValues := false;
m_OwnValuesCons := true;
end;

constructor TDMRuleItem.Create(premise : TDMItemSet; consequence : TDMItemSet;
genTime : integer; ruleSupport : integer;
OwnValuesItems : boolean );
begin
m_premise := premise;
m_premise.OwnValues := OwnValuesItems;
m_consequence := consequence;
m_OwnValues := false;
m_OwnValuesCons := true;

m_consequence.setCounter(ruleSupport);
m_genTime := genTime;
end;

function TDMRuleItem.premise() : TDMItemSet;
begin
result := m_premise;
end;

function TDMRuleItem.consequence() : TDMItemSet;
begin
result := m_consequence;
end;

function TDMRuleItem.accuracy() : double;
begin
result := m_accuracy;
end;

function TDMRuleItem.equals(o : TObject) : boolean;
begin
if(o = nil) then
begin
result := false;
exit;
end;
if( (m_premise.equals( (o as TDMRuleItem).m_premise ) ) and (m_consequence.equals( (o as TDMRuleItem).m_consequence)) ) then
begin
result := true;
exit;
end;
result := false;
end;

function TDMRuleItem.compareTo(o : TObject ) : integer;
begin
if(m_accuracy = (o as TDMRuleItem).m_accuracy) then
begin
if((m_genTime = (o as TDMRuleItem).m_genTime)) then
begin
result := 0;
exit;
end;
if(m_genTime > (o as TDMRuleItem).m_genTime) then
begin
result := -1;
exit;
end;
if(m_genTime < (o as TDMRuleItem).m_genTime) then
begin
result := 1;
exit;
end;
end;
if(m_accuracy < (o as TDMRuleItem).m_accuracy) then
begin
result := -1;
exit;
end;
result := 1;
end;

destructor TDMRuleItem.Destroy;
begin
if(OwnValues)then
FreeAndNil(m_premise);
if(OwnValuesCons)then
begin
m_consequence.OwnValues := true;
FreeAndNil(m_consequence);
end;
end;

end.