unit alap;

interface

Const
        MaxRow = 50+3;
        MaxCol = 50+3;
        MaxIntVarsCount = 25;

Const
        BBMaxRow=250;
        BBMethodIndex=0;
        RHS = 0;
        DenomRow = 0;
        NumerRow = -1;
        ObjFn = -2;
        RelCol = -1;
        CellNameMaxLen = 10;

Type
        TRowIndex = 0..MaxRow+BBMaxRow;
        TColIndex = 0..MaxCol;
        TAim = (Max,Min);
        RealType = Extended;
        TRow = Array[RHS..MaxCol-3] Of RealType;
        PTRow = ^TRow;
        TMatrix = Array[ObjFn..MaxRow-3+BBMaxRow] Of PTRow;

        TColThisAct= ARRAY [-(MaxRow-3+BBMaxRow)..MaxCol-3] OF INTEGER;
        TMultiplier = -1..1;
        TConstraintType=ARRAY [ObjFn..MaxRow-3+BBMaxRow] OF CHAR;
        TVarNames = ARRAY [RHS..MaxCol-3] Of String[CellNameMaxLen];
        TCondNames= ARRAY [ObjFn..MaxRow-3] Of String[CellNameMaxLen];
        TProblem=Record
                Matrix:TMatrix;
                VarNames:TVarNames;
                RowNames:TCondNames;
                Relations:TConstraintType;
                End;

Var OriginalProblem:TProblem;


implementation

end.