IMsCalculationStats.Root

Синтаксис

Root: IMsCalculationStatNode;

Описание

Свойство Root определяет корневую вершину дерева статистик.

Пример

Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором CONT_MODEL и задачи моделирования с идентификатором PROBLEM.

Добавьте ссылки на системные сборки: Metabase, Ms.

Sub UserProc;
Var
    Mb: IMetabase;
    Problem: IMsProblem;
    Settings: IMsProblemCalculationSettings;
    Calc: IMsProblemCalculation;
Begin
    Mb := MetabaseClass.Active;
    
// Получим задачу моделирования
    Problem := Mb.ItemByIdNamespace("PROBLEM", Mb.GetObjectKeyById("CONT_MODEL")).EditTemporary As IMsProblem;
    Settings := Problem.CreateCalculationSettings;
    
// Зададим детализацию статистик расчета
    Settings.StatsLevel := MsCalculationStatsLevel.Basic;
    Calc := Problem.Calculate(Settings);
    
// Рассчитаем задачу моделирования и статистики расчета
    Calc.Run;
    
// Выведем результат в консоль
    ShowStats(Calc.Stats);
End Sub UserProc;

Sub ShowStats(Stats: IMsCalculationStats);
Var
    Node: IMsCalculationStatNode;
    Nodes: IMsCalculationStatNodes;
Begin
    
// Построим дерево статистик расчета
    Node := Stats.Root;
    Node.Name := 
"Статистики расчета:";
    Debug.WriteLine(Node.Name);
    Nodes := Stats.Root.Children;
    
For Each Node In Nodes Do
        ShowNode(Node);
    
End For;
End Sub ShowStats;

Sub ShowNode(StatNode: IMsCalculationStatNode);
Var
    j: Integer;
    Node: IMsCalculationStatNode;
    Value: Variant;
    Values: Array 
Of Variant;
    Combined: String;
Begin
    
// Построим вершины дерева статистик расчета
    Debug.Indent;
    Debug.Write(StatNode.Name + 
":   " + StatNode.Id + ";   " + StatNode.Type.ToString);
    Value := StatNode.Value;
    
If Value Is Array Then
        Values := Value 
As Array;
        
For j := 0 To Values.Length - 1 Do
            
If Not Combined.IsEmpty Then
                Combined := Combined + 
", ";
            
End If;
            Combined := Combined + Values[j];
        
End For;
        Debug.Write(
"[" + Combined + "]");
        Combined := 
"";
        
Elseif Value Is IMsDatePeriod Then
            Debug.Write((Value 
As IMsDatePeriod).Start.ToString + " - " + (Value As IMsDatePeriod).End_.ToString);
        
Else
        Debug.Write(
";   " + StatNode.Value);
    
End If;
    Debug.WriteLine(
"");
    
If StatNode.Children.Count > 0 Then
        
For Each Node In StatNode.Children Do
            ShowNode(Node);
        
End For;
    
End If;
    Debug.Unindent;
End Sub ShowNode;

В результате выполнения примера будет запущен расчёт заданной задачи моделирования с идентификатором PROBLEM.

В консоль будут выведены статистики расчёта с идентификатором, типом расчёта и значением:

Статистики расчета:

    Загрузка данных:   LOADSTEP;   0;   

        Время расчета (с):   ELAPSEDTIME;   1;   0.094

        Статистические данные:   TSDB_STAT;   0;   

            Внешняя матрица:   EXTERNALMATRIX;   0;   0

            Количество точек:   POINTCOUNT;   0;   31

    Расчет:   CALCSTEP;   0;   

        Время расчета (с):   ELAPSEDTIME;   1;   0

        Многомерный итератор:   ;   0;   

    Сохранение данных:   SAVESTEP;   0;   

        Время расчета (с):   ELAPSEDTIME;   1;   0

        Статистические данные:   TSDB_STAT;   0;   

            Внешняя матрица:   EXTERNALMATRIX;   0;   0

            Количество точек:   POINTCOUNT;   0;   31

            Количество изменённых точек:   CHANGEDPOINTCOUNT;   0;   0

См. также:

IMsCalculationStats