Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / j48 / NoSplitClass
.pas unit NoSplitClass;
interface
uses
Instances,
SplitClass,
DistributionClass;
type NoSplit = class (Split)
public
constructor create(distribution: Distribution);
procedure buildClassifier(instances: TDMInstances);
function whichSubset(instance: TDMInstance): integer;
// function weights(instance: TDMInstance): double[];
end;
implementation
constructor NoSplit.create(distribution: Distribution);
begin
m_distribution := Distribution.CreateC(distribution);
m_numSubsets := 1;
end;
//Creates a "no-split"-split for a given set of instances.
procedure NoSplit.buildClassifier(instances: TDMInstances);
begin
m_distribution := Distribution.createI(instances);
m_numSubsets := 1;
end;
// Always returns 0 because only there is only one subset.
function NoSplit.whichSubset(instance: TDMInstance): integer;
begin
result := 0;
end;
// Always returns null because there is only one subset.
{ function NoSplit.weights(instance: TDMInstance): array of double;
begin
result := nil;
end;
{ public final String leftSide(Instances instances)
begin
return "";
end;
/**
* Does nothing because no condition has to be satisfied.
*/
public final String rightSide(int index, Instances instances){
return "";
}
{ /**
* Returns a string containing java source code equivalent to the test
* made at this node. The instance being tested is called "i".
*
* @param index index of the nominal value tested
* @param data the data containing instance structure info
* @return a value of type 'String'
*/
public final String sourceExpression(int index, Instances data) {
return "true"; // or should this be false??
}
end.
interface
uses
Instances,
SplitClass,
DistributionClass;
type NoSplit = class (Split)
public
constructor create(distribution: Distribution);
procedure buildClassifier(instances: TDMInstances);
function whichSubset(instance: TDMInstance): integer;
// function weights(instance: TDMInstance): double[];
end;
implementation
constructor NoSplit.create(distribution: Distribution);
begin
m_distribution := Distribution.CreateC(distribution);
m_numSubsets := 1;
end;
//Creates a "no-split"-split for a given set of instances.
procedure NoSplit.buildClassifier(instances: TDMInstances);
begin
m_distribution := Distribution.createI(instances);
m_numSubsets := 1;
end;
// Always returns 0 because only there is only one subset.
function NoSplit.whichSubset(instance: TDMInstance): integer;
begin
result := 0;
end;
// Always returns null because there is only one subset.
{ function NoSplit.weights(instance: TDMInstance): array of double;
begin
result := nil;
end;
{ public final String leftSide(Instances instances)
begin
return "";
end;
/**
* Does nothing because no condition has to be satisfied.
*/
public final String rightSide(int index, Instances instances){
return "";
}
{ /**
* Returns a string containing java source code equivalent to the test
* made at this node. The instance being tested is called "i".
*
* @param index index of the nominal value tested
* @param data the data containing instance structure info
* @return a value of type 'String'
*/
public final String sourceExpression(int index, Instances data) {
return "true"; // or should this be false??
}
end.
Соседние файлы в папке j48