Add(Serie: IEmSerie);
Add(Serie: Prognoz.Platform.Interop.Modeller.IEmSerie);
Serie. Добавляемый ряд данных.
Метод Add добавляет указанный ряд данных в набор для расчёта статистических характеристик.
Для добавления в набор всех доступных рядов используйте метод IEmStatisticsSettings.AddAllSeries; для удаления всех рядов из набора - IEmStatisticsSettings.RemoveAllSeries.
Для выполнения примера добавьте ссылку на системную сборку «Modeller».
Sub Stat;
Var
ExprMod: IExpressModeller;
Sett: IEmStatisticsSettings;
Serie: IEmSerie;
Ar: Array[14] Of Double;
ReportSettings: IEmReportSettings;
Sections: IEmSections;
i: Integer;
Begin
ExprMod := New ExpressModeller.Create;
// Исходный ряд данных
Ar[0] := 56; Ar[1] := 45; Ar[2] := 23; Ar[3] := 45;
Ar[4] := 65; Ar[5] := 23; Ar[6] := 54; Ar[7] := 87;
Ar[8] := 67; Ar[9] := 98; Ar[10] := 89;
Serie := ExprMod.Series.Add(Ar, "X1", "Ряд данных");
Sett := ExprMod.CreateStatisticsSettings;
Sett.Add(Serie);
// Задаём параметры отчёта
Sett.Format := "Stats;Graph";
ReportSettings := Sett.ReportSettings;
ReportSettings.Title := "Расчёт статистических характеристик";
ReportSettings.Subtitle := "Отчёт";
ReportSettings.SeriesNameFormat := EmReportSeriesNameFormat.OnlyDisplayName;
ReportSettings.Precision := 1;
// Выполняем расчёт
ExprMod.EvaluateMethod("C:\Statistics.html", Sett, True);
// Выводим информацию о разделах отчёта
Sections := Sett.Sections;
Debug.WriteLine("Разделы отчёта:");
For i := 0 To Sections.Count - 1 Do
If Sections.IsEnabled(i) Then
Debug.WriteLine(" - наименование: " + Sections.Name(i));
Debug.WriteLine(" - идентификатор: " + Sections.Id(i));
If Sections.IsTurnedOn(i) Then
Debug.WriteLine(" - включён в отчёт");
Else
Debug.WriteLine(" - в отчёте не отображается");
End If;
Debug.WriteLine("");
End If;
End For;
End Sub Stat;
После выполнения примера будет выполнен расчёт статистических характеристик для указанного ряда данных. Результаты будут выведены в файл отчёта «C:\Statistics.html». Структура отчёта будет выведена в окно консоли.
Imports Prognoz.Platform.Interop.Modeller;
…
Public Shared Sub Main(Params: StartParams);
Var
ExprMod: IExpressModeller;
Sett: IEmStatisticsSettings;
Serie: IEmSerie;
Ar: Array[14] Of Double;
ReportSettings: IEmReportSettings;
Sections: IEmSections;
i: Integer;
Begin
ExprMod := New ExpressModeller.Create();
Ar[0] := 56; Ar[1] := 45; Ar[2] := 23; Ar[3] := 45;
Ar[4] := 65; Ar[5] := 23; Ar[6] := 54; Ar[7] := 87;
Ar[8] := 67; Ar[9] := 98; Ar[10] := 89;
Serie := ExprMod.Series.Add(Ar, "X1", "Ряд данных");
Sett := ExprMod.CreateStatisticsSettings();
Sett.Add(Serie);
// Задаём параметры отчёта
Sett.Format := "Stats;Graph";
ReportSettings := Sett.ReportSettings;
ReportSettings.Title := "Расчёт статистических характеристик";
ReportSettings.Subtitle := "Отчёт";
ReportSettings.SeriesNameFormat := EmReportSeriesNameFormat.emrfOnlyDisplayName;
ReportSettings.Precision := 1;
// Выполняем расчёт
ExprMod.EvaluateMethod("C:\Statistics.html", Sett, True);
// Выводим информацию о разделах отчёта
Sections := Sett.Sections;
System.Diagnostics.Debug.WriteLine("Разделы отчёта:");
For i := 0 To Sections.Count - 1 Do
If Sections.IsEnabled[i] Then
System.Diagnostics.Debug.WriteLine(" - наименование: " + Sections.Name[i]);
System.Diagnostics.Debug.WriteLine(" - идентификатор: " + Sections.Id[i]);
If Sections.IsTurnedOn[i] Then
System.Diagnostics.Debug.WriteLine(" - включён в отчёт");
Else
System.Diagnostics.Debug.WriteLine(" - в отчёте не отображается");
End If;
System.Diagnostics.Debug.WriteLine("");
End If;
End For;
End Sub;
После выполнения примера будет выполнен расчёт статистических характеристик для указанного ряда данных. Результаты будут выведены в файл отчёта «C:\Statistics.html». Структура отчёта будет выведена в окно консоли.
См. также: