Ms > Интерфейсы сборки Ms > IModelling > IModelling.FloorI
FloorI(Input: Variant; Precision: Variant): Variant;
FloorI(Input: object;
Precision: object;
Context: Prognoz.Platform.Interop.Fore.ForeRuntimeContext):
object;
Input. Переменная, точки которой должны быть округлены;
Precision. Кратное, до которого требуется округлить;
Context. Контекст. Параметр используется только в Fore.NET.
Метод FloorI возвращает результат округления точек переменной до кратного заданной точности с недостатком. Переменная должна содержать только целые значения.
Для округления точек переменной, содержащей не только целые значения, используйте метод IModelling.Floor.
Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором «MS». В данном контейнере содержится модель с идентификатором «MODEL_D», рассчитываемая методом детерминированного уравнения и содержащая хотя бы одну входную переменную. Первая входная переменная должна содержать только целые значения.
Добавьте ссылки на системные сборки «Metabase», «Ms».
Sub UserFloorI;
Var
Mb: IMetabase;
ModelSpace, ModelObj: IMetabaseObject;
Transf: IMsFormulaTransform;
Formula: IMsFormula;
Model: IMsModel;
Determ: IMsDeterministicTransform;
Term: IMsFormulaTerm;
Expr: IExpression;
Begin
Mb := MetabaseClass.Active;
// Получаем модель
ModelSpace := Mb.ItemById("MS").Bind;
ModelObj := Mb.ItemByIdNamespace("MODEL_D", ModelSpace.Key).Edit;
Model := ModelObj As IMsModel;
Transf := Model.Transform;
Formula := Transf.FormulaItem(0);
Determ := Formula.Method As IMsDeterministicTransform;
// Получаем первую входную переменную
Term := Determ.Operands.Item(0);
// Задаём формулу расчёта
Expr := Determ.Expression;
Expr.References := "Ms";
Expr.AsString := "FloorI(" + Term.TermToInnerText + ", 3)";
If Expr.Valid
Then ModelObj.Save;
Else Debug.WriteLine("Модель не сохранена: ошибка в формуле");
End If;
End Sub UserFloorI;
После выполнения примера модель будет округлять с недостатком значения точек первой входной переменной до ближайшего числа, кратного трем.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Ms;
…
Public Shared Sub Main(Params: StartParams);
Var
Mb: IMetabase;
ModelSpace, ModelObj: IMetabaseObject;
Transf: IMsFormulaTransform;
Formula: IMsFormula;
Model: IMsModel;
Determ: IMsDeterministicTransform;
Term: IMsFormulaTerm;
Expr: IExpression;
Begin
Mb := Params.Metabase;
// Получаем модель
ModelSpace := Mb.ItemById["MS"].Bind();
ModelObj := Mb.ItemByIdNamespace["MODEL_D", ModelSpace.Key].Edit();
Model := ModelObj As IMsModel;
Transf := Model.Transform;
Formula := Transf.FormulaItem[0];
Determ := Formula.Method As IMsDeterministicTransform;
// Получаем первую входную переменную
Term := Determ.Operands.Item[0];
// Задаём формулу расчёта
Expr := Determ.Expression;
Expr.References := "Ms";
Expr.AsString := "FloorI(" + Term.TermToInnerText() + ", 3)";
If Expr.Valid
Then ModelObj.Save();
Else System.Diagnostics.Debug.WriteLine("Модель не сохранена: ошибка в формуле");
End If;
End Sub;
Выражение 1:
FloorI({Brazil|BCA},3)
Результат: наблюдения показателя Brazil|BCA округлены с недостатком до ближайшего числа, кратного трем. Если показатель содержит вещественные значения, то возникнет ошибка.
Применение: можно использовать в формулах вычисляемых рядов базы данных временных рядов и в формулах моделей контейнера моделирования, являющегося дочерним по отношению к базе данных временных рядов.
Выражение 2:
FloorI(X1,2)
Результат: точки фактора X1 округлены с недостатком до ближайшего числа, кратного двум.
Применение: можно использовать в формулах моделей контейнера моделирования.
См. также:
IModelling | База данных временных рядов: Калькулятор | Контейнер моделирования: Редактирование регрессора/формулы