IMsTimeMatrix.Coord

Fore Syntax

Coord: IMsFormulaTransformCoord;

Fore.NET Syntax

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

Description

The Coord property returns parameters of series coordinate.

Comments

Use this property to access values of series coordinate parameters.

Fore Example

This example describes custom method.

To execute the example, add links to the Ms system assemblies.

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("Series " + i.ToString + " - " + s);
    End For;
    param.EndCached;
    Return Null;
End Function Coord;

The method returns the value of series points that is multiplied to value of the PARAM_COORD parameter.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

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("Series " + i.ToString() + " - " + s);
    End For;
    param.EndCached();
    Return Null;
End Function Coord;