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;
    Label1: TLabel;
    Panel3: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses math;
{$R *.dfm}
function J(a:real;n:integer):real;
var i:integer;
    s2:integer;
    s1:real;
begin
   s1:=power(a,n);
   s2:=1;
   for i:=1 to n do
     s2:=s2*i;
   result:=s1/s2;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,n:integer;
    Px,s,qp,P0,x,u,Q,A,K,L:real;
    leixing:boolean ;
begin
  if (edit1.Text='') or (edit2.Text='')or (edit3.Text='') then
    begin
      showmessage('请输入完整数据！');
      exit;
    end;
  s:=0;
  leixing:=true;
  n:=StrToint(Edit1.Text);
  if n=1 then leixing:=false;
  x:=StrTofloat(Edit2.Text);      //顾客流强度λ
  u:=StrTofloat(Edit3.Text);      //服务台能力μ：
  qp:=x/u;
  for i:=0  to n do
    s:=s+ J(qp,i) ;
  P0:=1/s ;
  Px:= J(qp,n)*P0;                         //损失概率
  Q :=1-Px  ;                              //相对通过能力：
  A:=x*Q  ;                                //绝对通过能力：
  edit4.Text:= formatfloat('0.000 ',Px);
  edit5.Text:=formatfloat('0.000',Q);
  edit6.Text:= formatfloat('0.000',A);
  if leixing=true then
    begin
      K:=qp*(1-P0*J(qp,n)) ;                   //服务台平均数
      L:=K/n;                                  //通道占用率
      label8.Enabled:=true;
      label12.Enabled:=true;
      edit7.Enabled:=true;
      edit8.Enabled:=true;
      edit7.Text:=formatfloat('0.000',K);
      edit8.Text:=formatfloat('0.###',L);
    end
  else
    begin
      label8.Enabled:=false;
      label12.Enabled:=false;
      edit7.Enabled:=false;
      edit8.Enabled:=false;
      edit7.Clear;
      edit8.Clear;
    end;
end;

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

end.