IMsTimeMatrix.Coord

Синтаксис Fore

Coord: IMsFormulaTransformCoord;

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

Coord: Prognoz.Platform.Interop.Ms.IMsFormulaTransformCoord;

Описание

Свойство Coord возвращает параметры координаты ряда.

Комментарии

Используйте данное свойство для доступа к значениям параметров координаты ряда.

Пример Fore

В данном примере описан пользовательский метод.

Для выполнения примера добавьте ссылки на системные сборки Ms.

Public Function Coord(param: IMsTimeMatrix): Variant;
Var
    ParamValues: IMsModelParamValues;
    ParamVal: IMsModelParamValue;
    pVal: Double;
    s: String;
    i, j: integer;
    Input, Output: ITimeSeries;
Begin
    ParamValues := param.Coord.ParamValues;
    ParamVal := ParamValues.FindById("PARAM_COORD");
    pVal := ParamVal.Value;
    param.BeginCached;
    s := "";
    For i := 0 To param.Count - 1 Do
        For j := param.StartIndex To param.EndIndex Do
            Input(i) := param.Item(i);
            Output(i) := Input(i)*pVal;
            s := s + (Output.Item(j) As double).ToString + " ";
        End For;
    Debug.WriteLine("Ряд " + i.ToString + " - " + s);
    End For;
    param.EndCached;
    Return Null;
End Function Coord;

Метод возвращает значение точек ряда, умноженное на значение параметра «PARAM_COORD».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Ms;
…
Public Function Coord(param: IMsTimeMatrix): object;
Var     
    ParamValues: IMsModelParamValues;
    ParamVal: IMsModelParamValue;
    pVal: Double;
    s: String;
    i, j: integer;
    Input, Output: ITimeSeries;
    Item: TimeSeries;
Begin
    ParamValues := param.Coord.ParamValues;
    ParamVal := ParamValues.FindById("PARAM_COORD");
    pVal := ParamVal.Value As double;
    param.BeginCached();
    s := "";
    For i := 0 To param.Count - 1 Do
        For j := param.StartIndex To param.EndIndex Do
            Input(i) := param.Item[i];
            Output(i) := Input(i)*pVal;
            s := s + (Output.Item[j] As double).ToString() + " ";
        End For;
    System.Diagnostics.Debug.WriteLine("Ряд " + i.ToString() + " - " + s);
    End For;
    param.EndCached();
    Return Null;
End Function Coord;

См. также:

IMsTimeMatrix