IMsCompositeFormulaTerm.ChangeLag

Синтаксис

ChangeLag (Value: Integer);

Параметры

Value. Значение, на которое необходимо изменить текущее значение лага.

Описание

Метод ChangeLag осуществляет изменение значения лага на значение, передаваемое посредством параметра Value.

Пример

Для выполнения примера предполагается наличие в контейнере моделирования модели с идентификатором "NEW_LINREG". Для расчета модели используется метод линейной регрессии.

Sub Main;

Var

MB: IMetabase;

MObj: IMetabaseObject;

Model: IMsModel;

Trans: IMsFormulaTransform;

VarTrans: IMsFormulaTransformVariable;

Tree: IMsFormulaTransformSlicesTree;

Slice: IMsFormulaTransformSlice;

Selector: IMsFormulaTransformSelector;

Formula: IMsFormula;

LinReg: IMsLinearRegressionTransform;

TransVar: IMsFormulaTransformVariable;

ComposForm: IMsCompositeFormulaTermList;

ComposTerm: IMsCompositeFormulaTerm;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemByIdNamespace("New_LinReg", MB.ItemById("KONT_MODEL").Key).Edit;

Model := MObj As IMsModel;

Trans := Model.Transform;

VarTrans := Trans.Outputs.Item(0);

Tree := VarTrans.SlicesTree(VarTrans);

Slice := Tree.CreateSlice(1);

Selector := Model.Transform.CreateSelector;

Selector.Slice := Slice;

Formula := Model.Transform.Transform(Selector);

Formula.Kind := MsFormulaKind.LinearRegression;

LinReg := Formula.Method As IMsLinearRegressionTransform;

TransVar := Model.Transform.Inputs.Item(0);

ComposForm := LinReg.Explanatories;

ComposTerm := ComposForm.Item(0);

ComposTerm.Inversion := MsInversion.Normalization;

ComposTerm.InversionLag := MsInversionLag.PrecidingValue;

ComposTerm.ChangeLag(-5);

MObj.Save;

End Sub Main;

После выполнения примера будет изменен лаг и параметры начального преобразования для первого составного терма модели. Значение лага будет увеличено на 5.

См. также:

IMsCompositeFormulaTerm