Class TDecideForm (unit DecideF) |
Inherits from
TForm
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.
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;
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.
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;