IMsUORuntime.ControlVariables

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

Public Class UserOptimization: Object, IMsUserOptimizationCallback
    Public Sub OnLoad(Xml: IXMLDOMElement);
    Begin
    End Sub OnLoad;

    Public Sub OnSave(Xml: IXMLDOMElement);
    Begin
    End Sub OnSave;

    Public Sub OnBeforeExecute(Calculation: IMsMethodCalculation; Coord: IMsFormulaTransformCoord; Problem: IMsUserOptimizationProblem);
    Begin
    End Sub OnBeforeExecute;

    Public Sub OnExecute(Runtime: IMsUORuntime);
    Var
        CtrlVars: IMsUORuntimeControlTerms;
        CtrlVar: IMsUORuntimeControlTerm;
        i, c: Integer;
    Begin
        CtrlVars := Runtime.ControlVariables;
        c := CtrlVars.Count;
        Debug.WriteLine("--------------------------------------");
        For i := 0 To c - 1 Do
            Debug.WriteLine("Управляющая переменная " + i.ToString);
            CtrlVar := CtrlVars.Item(i);
            Debug.Indent;
            Debug.WriteLine("TermToText: " + CtrlVar.Term.TermToText);
            Debug.WriteLine("Value: " + CtrlVar.Value);
            Debug.WriteLine("String: " + CtrlVar.GenerateString);
            Debug.Unindent;
        End For;
        // Расчёт уравнений в текущей точке
        Runtime.Equations.ExecuteAll;
    End Sub OnExecute;

    Public Sub OnAfterExecute(Calculation: IMsMethodCalculation; Coord: IMsFormulaTransformCoord; Problem: IMsUserOptimizationProblem);
    Begin
    End Sub OnAfterExecute;

    Public Sub OnSetupParams(Params: IMsModelParams);
    Begin
    End Sub OnSetupParams;
End Class UserOptimization;