unit1.pas

很好运筹学的DEOPHI原代码.包括动态规划,原始单纯形法,对策论,决策论等

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel2: TPanel;
    Label4: TLabel;
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StringGrid2: TStringGrid;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label5: TLabel;
    Panel3: TPanel;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Edit5: TEdit;
    Panel4: TPanel;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type array2=array[1..99,1..99] of real;  //声明的数组类型数据：二维数组
type array1=array[1..99] of real;        //声明的数组类型数据：一维数组

var
  Form1: TForm1;
  k,m,n,i,j,s:integer;
  e:real;
  a,b:array2;  //a,b为二维数组变量
  c:array1;    //c为一维数组变量

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  edit1.text:='';
  edit2.Text:='';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  m:=strtoint(edit1.text);
  n:=strtoint(edit2.text);
  stringgrid1.colcount:=n+1;  //stringgrid1控件的列数（包括固定列）
  stringgrid2.RowCount:=m+1;  //stringgrid2控件的行数（包括固定行）
  stringgrid2.ColCount:=n+1;  //stringgrid2控件的列数（包括固定列）
  for j:=1 to n do
  begin
    stringgrid1.Cells[j,0]:='p'+inttostr(j);
    stringgrid2.Cells[j,0]:='s'+inttostr(j);
  end;
  for i:=1 to m do
  begin
    stringgrid2.Cells[0,i]:='A'+inttostr(i);
  end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  for j:=1 to n do
  begin
    b[j,1]:=strtofloat(stringgrid1.Cells[j,1]);  //用b[j,1]存放各状态概率
  end;

  for i:=1 to m  do
  begin
      for j:=1 to n do
        a[j,i]:=strtofloat(stringgrid2.cells[j,i]);
               //将stringgrid2中所输入的矩阵数据映射到二维熟组中
  end;

  if radiobutton1.Checked then s:=1
  else s:=2;  //用变量s来表示所选的决策目标
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  edit3.text:=' ';
  for i:=1 to m do c[i]:=0;
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      c[i]:=c[i]+a[j,i]*b[j,1];  //c[i]为各方案的益损值
    end;
  end;

  for i:=1 to m do
  begin
    edit3.Text:=edit3.text+'  '+floattostr(c[i]);  //输出各方案的益损值
  end;

  e:=c[1];
  k:=1;
  if s=1 then
  begin
    for i:=2 to m do
      if c[i]>e then
      begin
        e:=c[i];  //e为最佳期望值
        k:=i;     //k为最佳方案的序号
      end;
  end;
  if s=2 then
  begin
    for i:=2 to m do
      if c[i]<e then
      begin
        e:=c[i];
        k:=i;
      end;
  end;

  edit4.Text:='方案'+inttostr(k);  //输出最佳方案
  edit5.text:=floattostr(e);       //输出最佳期望值
end;

end.