unit1.~h

lp求解的单纯形算法

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
#include <ComCtrls.hpp>

#define Infinite 10000000
#define Difference 0.000000001

typedef DynamicArray < DynamicArray <double> > Matrix;
typedef DynamicArray<double> Double_Vector;
typedef DynamicArray<char> Char_Vector;
typedef DynamicArray<int> Int_Vector;
typedef DynamicArray<AnsiString> Ansi_Vector;

//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:
        TMainMenu *MainMenu1;
        TMenuItem *File;
        TMenuItem *Save;
        TMenuItem *Open;
        TMenuItem *New;
        TMenuItem *Spliter;
        TMenuItem *SaveAs;
        TMenuItem *Help;
        TMenuItem *About;
        TOpenDialog *OpenDialog1;
        TSaveDialog *SaveDialog1;
        TMenuItem *Close1;
        TStatusBar *StatusBar1;
        TMenuItem *Exit;
        void __fastcall NewClick(TObject *Sender);
        void __fastcall OpenClick(TObject *Sender);
        void __fastcall SaveClick(TObject *Sender);
        void __fastcall SaveAsClick(TObject *Sender);
        void __fastcall Close1Click(TObject *Sender);
        void __fastcall RunClick(TObject *Sender);
        void __fastcall HelpClick(TObject *Sender);
        void __fastcall ExitClick(TObject *Sender);
      

private:
        Matrix A;//约束矩阵
        Double_Vector C; //价值向量
        Double_Vector RHS;//右端向量
        bool __fastcall IsNumber( char c);
        bool __fastcall IsLetter( char c);

public:
        int ChildCount;
        bool HaveHelp;
        int __fastcall Max_Index(const Double_Vector &V,const int n);
                                                       //返回向量中最大值的下标
        double __fastcall Max(const Matrix &M,const int k,const int t);
                                         //返回矩阵的k列向量中前t个分量的最大值
        __fastcall TMainForm(TComponent* Owner);
        void __fastcall CreateMDIChild(const String Name);
        void __fastcall FileNewExecute(TObject *Sender);
        void __fastcall FileOpenExecute(TObject *Sender);
       
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif