unit1.pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit9: TEdit;
    Edit8: TEdit;
    Label7: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if combobox1.ItemIndex=0 then
    begin
      edit3.Clear;            edit9.Clear;
      edit3.Enabled:=false;   edit9.Enabled:=false;
      label4.Enabled:=false;  label7.Enabled:=false;
    end
  else
     begin
       edit3.Clear;         
       edit3.Enabled:=true;
       label4.Enabled:=true; 
       edit9.Clear;
       edit9.Enabled:=true;
       label7.Enabled:=true;
     end  ;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  label4.Enabled:=false;         
  edit3.Clear;
  edit3.Enabled:=false;          
  label7.Enabled:=false;
  edit9.Clear;
  edit9.Enabled:=false;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var Cd,Cp,Cs,D,t,Q,S,f:real;
begin
  Cd:=StrTofloat(Edit1.Text);                //订货费
  Cp:=StrTofloat(Edit2.Text);                //存储费
  D:=StrTofloat(Edit5.Text);                 //需求量
   if combobox1.ItemIndex=0 then             //不允许缺货
     begin
       Q:=sqrt(2*Cd*D/Cp);                   //最优订货批量
       t:=sqrt(2*Cd/(Cp*D));                 //最优订货周期
       f:=sqrt(2*Cd*Cp*D);                   //最小费用
     end
   else                                      //允许缺货
     begin
       Cs:=StrTofloat(Edit3.Text);           //缺货费
       Q:= sqrt(2*Cd*D*(Cp+Cs)/(Cp*Cs));
       t:= sqrt(2*Cd*(Cp+Cs)/(Cp*Cs*D));
       f:=sqrt(2*Cd*Cp*Cs*D/(Cp+Cs));
       S:=sqrt(2*Cd*Cp*D/(Cs*(Cp+Cs)));      //最大允许缺货量
     end;
  edit6.Text:=formatfloat('0.###',Q);        //格式化输出结果
  edit7.Text:=formatfloat('0.###',t);
  edit8.Text:=formatfloat('0.###',f);
  edit9.Text:=formatfloat('#.###',S);
end;

end.