ICalcLinearOptimizationBlock.Database

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcLinearOptimizationBlock;
    CubeOut, CubeCoefficient, CubeLowBorder, CubeHighBorder, CubeResult, CubeFixed: IStandardCube;
Begin
    MB := MetabaseClass.Active;
    // Получим алгоритм расчёта
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Получим список объектов алгоритма расчёта
    List := CalcAlgo.Items;
    // Получим блок
    CalcBlock := List.Item(0);
    Block := CalcBlock As ICalcLinearOptimizationBlock;
    // Используем базу данных, заданную для репозитория по умолчанию
    Block.Database := MB.SpecialObject(MetabaseSpecialObject.DefaultDatabase);
    // Зададим тип модуля расчёта, который будет использоваться при расчёте блока линейной оптимизации
    Block.SolverType := LinearOptimizationSolverType.Lpsolve;
    // Зададим критерий целевой функции
    Block.FunctionCriteria := TargetFunctionCriteria.Max;
    // Используем целочисленные переменные
    Block.UseInteger := True;
    // Зададим приёмник
    CubeOut := MB.ItemById("CUBE_OUTPUT").Edit As IStandardCube;
    Block.StubOut := CubeOut As IVariableStub;
    // Зададим коэффициенты целевой функции
    CubeCoefficient := MB.ItemById("CUBE_COEFFICIENT").Edit As IStandardCube;
    Block.StubCoefficient.Stub := CubeCoefficient As IVariableStub;
    // Зададим начальные значения управляющих переменных
    Block.StubValues.Stub := CubeOut As IVariableStub;
    // Зададим куб для фиксации переменных
    CubeFixed := MB.ItemById("CUBE_FIXED").Edit As IStandardCube;
    Block.StubFixed.Stub := CubeFixed As IVariableStub;
    // Зададим ограничения нижних границ
    CubeLowBorder := MB.ItemById("CUBE_LOW").Edit As IStandardCube;
    Block.StubLowRestriction.Stub := CubeLowBorder As IVariableStub;
    // Зададим ограничения верхних границ
    CubeHighBorder := MB.ItemById("CUBE_HIGH").Edit As IStandardCube;
    Block.StubHighRestriction.Stub := CubeHighBorder As IVariableStub;
    // Зададим куб для хранения результатов расчёта
    CubeResult := MB.ItemById("CUBE_RESULT").Edit As IStandardCube;
    Block.StubResult.Stub := CubeResult As IVariableStub;
    // Сохраним изменения
    Block.SaveObject;
End Sub UserProc;