IMsTimeMatrix.Coord

Копировать пример

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;