IEmRedundantVariablesTestSettings.Explained

Синтаксис Fore

Explained: IEmSerie;

Синтаксис Fore.NET

Explained: Prognoz.Platform.Interop.Modeller.IEmSerie;

Описание

Свойство Explained определяет объясняемый ряд.

Пример Fore

Для выполнения примера добавьте ссылку на системную сборку «Modeller».

Sub RedundantVariables;
Var
    ExprMod: IExpressModeller;
    Ar: Array[14] Of Double;
    Serie: IEmSerie;
    Sett: IEmRedundantVariablesTestSettings;
    SList: IEmSeriesList;
    Period: IEmPeriodSettings;
    Redundant: Array[1] Of Integer;
Begin
    ExprMod := New ExpressModeller.Create;
    Sett := ExprMod.CreateRedundantVariablesTestSettings;
    // Задаем объясняемый ряд
    Ar[0] := 5.8; Ar[1] := 5.0; Ar[2] := 2.6; Ar[4] := 7.2;
    Ar[5] := 2.8; Ar[6] := 6.2; Ar[7] := 9.5; Ar[8] := 7.4;
    Ar[10] := 9.4; Ar[11] := 10; Ar[12] := 5.4; Ar[13] := 8.1;
    Ar[3] := Double.Nan; Ar[9] := Double.Nan;
    Serie := ExprMod.Series.Add(Ar, "X1", "Ряд данных 1");
    Sett.Explained := Serie;
    // Задаем объясняющие ряды
    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; Ar[13] := 79;
    Ar[11] := Double.Nan; Ar[12] := Double.Nan;
    Serie := ExprMod.Series.Add(Ar, "X2", "Ряд данных 2");
    SList := Sett.Explanatories;
    SList.Add(Serie);
    Ar[0] := 2.7; Ar[1] := 6.1; Ar[2] := 9.6; Ar[3] := 9.5;
    Ar[4] := 7.7; Ar[5] := 5.9; Ar[6] := 5.1; Ar[7] := 2.5;
    Ar[8] := 7.1; Ar[9] := 9.9; Ar[12] := 8.2; Ar[13] := 5.1;
    Ar[10] := Double.Nan; Ar[11] := Double.Nan;
    Serie := ExprMod.Series.Add(Ar, "X3", "Ряд данных 3");
    SList.Add(Serie);
    // Задаем избыточные ряды
    Redundant[0] := ExprMod.Series.ItemIndexByName("X3");
    Sett.RedundantExplanatories := Redundant;
    // Исключаем константу из расчётов
    Sett.HasConstant := False;
    // Задаем периоды расчёта
    Period := Sett.Period;
    Period.BeginPeriod := 0;
    Period.EndPeriod := 13;
    // Выполняем расчёт
    ExprMod.EvaluateMethod("C:\RedundantVariables.html", Sett, True);
End Sub RedundantVariables;

Результат выполнения примера: будет выполнен расчёт метода «Критерий избыточных переменных» по заданным параметрам, отчёт о расчёте будет сохранен в файл «C:\RedundantVariables.html».

Пример Fore.NET

Imports Prognoz.Platform.Interop.Modeller;
…
Public Shared Sub RedundantVariables();
Var
    ExprMod: IExpressModeller;
    Ar: Array[14] Of Double;
    Serie: IEmSerie;
    Sett: IEmRedundantVariablesTestSettings;
    SList: IEmSeriesList;
    Period: IEmPeriodSettings;
    Redundant: Array[1] Of Integer;
Begin
    ExprMod := New ExpressModeller.Create();
    Sett := ExprMod.CreateRedundantVariablesTestSettings();
    // Задаем объясняемый ряд
    Ar[0] := 5.8; Ar[1] := 5.0; Ar[2] := 2.6; Ar[4] := 7.2;
    Ar[5] := 2.8; Ar[6] := 6.2; Ar[7] := 9.5; Ar[8] := 7.4;
    Ar[10] := 9.4; Ar[11] := 10; Ar[12] := 5.4; Ar[13] := 8.1;
    Ar[3] := Double.Nan; Ar[9] := Double.Nan;
    Serie := ExprMod.Series.Add(Ar, "X1", "Ряд данных 1");
    Sett.Explained := Serie;
    // Задаем объясняющие ряды
    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; Ar[13] := 79;
    Ar[11] := Double.Nan; Ar[12] := Double.Nan;
    Serie := ExprMod.Series.Add(Ar, "X2", "Ряд данных 2");
    SList := Sett.Explanatories;
    SList.Add(Serie);
    Ar[0] := 2.7; Ar[1] := 6.1; Ar[2] := 9.6; Ar[3] := 9.5;
    Ar[4] := 7.7; Ar[5] := 5.9; Ar[6] := 5.1; Ar[7] := 2.5;
    Ar[8] := 7.1; Ar[9] := 9.9; Ar[12] := 8.2; Ar[13] := 5.1;
    Ar[10] := Double.Nan; Ar[11] := Double.Nan;
    Serie := ExprMod.Series.Add(Ar, "X3", "Ряд данных 3");
    SList.Add(Serie);
    // Задаем избыточные ряды
    Redundant[0] := ExprMod.Series.ItemIndexByName["X3"];
    Sett.RedundantExplanatories := Redundant;
    // Исключаем константу из расчётов
    Sett.HasConstant := False;
    // Задаем периоды расчёта
    Period := Sett.Period;
    Period.BeginPeriod := 0;
    Period.EndPeriod := 13;
    // Выполняем расчёт
    ExprMod.EvaluateMethod("C:\RedundantVariables.html", Sett, True);
End Sub RedundantVariables;

См. также: