ICalcLinearOptimizationBlock.StubCoefficient

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo, CalcBlock: ICalcObject;
    List: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    Block: ICalcLinearOptimizationBlock;
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;
    // Просмотр информации о блоке линейной оптимизации
    ShowStub(Block.StubCoefficient);
    ShowStub(Block.StubValues);
    ShowStub(Block.StubLowRestriction);
    ShowStub(Block.StubHighRestriction);
    ShowStub(Block.StubExpressionRestriction);
    ShowStub(Block.StubResult);
End Sub UserProc;

Sub ShowStub(Stub: IStubSelection);
Var
    s: String;
Begin
    s := (IsNull(Stub.Stub)? "Источник данных не задан." : Stub.Stub.Name + '(' + Stub.Stub.Id + ')');
    Select Case Stub.Type
        Case OptimizationStubType.Coefficient: Debug.WriteLine("Коэффициенты целевой функции : " + s);
        Case OptimizationStubType.Values: Debug.WriteLine("Начальные значения управляющих переменных :" + s);
        Case OptimizationStubType.LowRestriction: Debug.WriteLine("Значения нижних границ : " + s);
        Case OptimizationStubType.HighRestriction: Debug.WriteLine("Значения верхних границ : " + s);
        Case OptimizationStubType.ExpressionRestriction: Debug.WriteLine("Ограничения на выражения : " + s);
        Case OptimizationStubType.ResultFunction: Debug.WriteLine("Приёмник результатов расчёта : " + Stub.Stub.Name + '(' + Stub.Stub.Id + ')');
    End Select;
End Sub ShowStub;