Class TDecideForm (unit DecideF)

Inherits from

TForm

Constructors



Functions

procedure BranchAndBound(test_item : Integer);

Perform a branch and bound search assuming items 1 through (test_item - 1) are fixed.

procedure CmdRandomizeClick(Sender: TObject);

End creating controls.

procedure CmdSearchClick(Sender: TObject);

Reset the best solution colors.

procedure DisableSearch(Sender: TObject);

See how much profit is possible.

procedure FormCreate(Sender: TObject);


procedure HillClimbing;

Find a solution using a hill climbing heuristic.

procedure mnuExitClick(Sender: TObject);


procedure ResetSolution;

Show the total cost and profit.

procedure SearchExhaustively(test_item : Integer);

Perform an exhaustive search assuming items 1 through (test_item - 1) are fixed.

procedure SearchRandomly;

Find a solution using a randomized heuristic.

procedure ShowResults;

End of this trial.

Properties

Events

Variables

AlgorithmOption : TRadioGroup;


CmdRandomize : TButton;


CmdSearch : TButton;


CostLabel1 : TLabel;


CostLabel2 : TLabel;


CostLabel21 : TLabel;


File1 : TMenuItem;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


MainMenu1 : TMainMenu;


MaxAvailableText : TEdit;


MaxCostText : TEdit;


MaxProfitText : TEdit;


MinCostText : TEdit;


MinProfitText : TEdit;


mnuExit : TMenuItem;


NodesVisitedLabel : TStaticText;


NumChoicesText : TEdit;


ProfitLabel1 : TLabel;


ProfitLabel11 : TLabel;


ProfitLabel21 : TLabel;


TotalCostLabel : TStaticText;


TotalProfitLabel : TStaticText;



Constructors


Functions


procedure BranchAndBound(test_item : Integer);

Perform a branch and bound search assuming items 1 through (test_item - 1) are fixed.


procedure CmdRandomizeClick(Sender: TObject);

End creating controls.


procedure CmdSearchClick(Sender: TObject);

Reset the best solution colors.


procedure DisableSearch(Sender: TObject);

See how much profit is possible.


procedure FormCreate(Sender: TObject);


procedure HillClimbing;

Find a solution using a hill climbing heuristic.


procedure mnuExitClick(Sender: TObject);


procedure ResetSolution;

Show the total cost and profit.


procedure SearchExhaustively(test_item : Integer);

Perform an exhaustive search assuming items 1 through (test_item - 1) are fixed.


procedure SearchRandomly;

Find a solution using a randomized heuristic.


procedure ShowResults;

End of this trial.


Properties


Events


Variables


AlgorithmOption : TRadioGroup;


CmdRandomize : TButton;


CmdSearch : TButton;


CostLabel1 : TLabel;


CostLabel2 : TLabel;


CostLabel21 : TLabel;


File1 : TMenuItem;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


MainMenu1 : TMainMenu;


MaxAvailableText : TEdit;


MaxCostText : TEdit;


MaxProfitText : TEdit;


MinCostText : TEdit;


MinProfitText : TEdit;


mnuExit : TMenuItem;


NodesVisitedLabel : TStaticText;


NumChoicesText : TEdit;


ProfitLabel1 : TLabel;


ProfitLabel11 : TLabel;


ProfitLabel21 : TLabel;


TotalCostLabel : TStaticText;


TotalProfitLabel : TStaticText;