INT _Stat_Sum = 0
INT _Stat_Min = 1
INT _Stat_Max = 2
INT _Stat_Avg = 3
BEGIN
INT _errorCode
TEXT _funcBody
TIME _bt, _et
REAL _value
RECORD NOALIAS (SD.EDA_StatCalcFunction_Params_V1) _params
_funcBody := "VEKTOR _v;" + %Chr(10)
_funcBody := _funcBody + "INT _i;" + %Chr(10)
_funcBody := _funcBody + "%CreateVektor(_v, _BT, _ET, _STEP);" + %Chr(10)
_funcBody := _funcBody + "FOR _i = 1 TO %ValuesNr(_v) LOOP" + %Chr(10)
_funcBody := _funcBody + " _v[_i] := %Mod(_i + 4, 10) + 1;" + %Chr(10)
_funcBody := _funcBody + "END LOOP;" + %Chr(10)
_funcBody := _funcBody + "RETURN _v;"
_bt := %TimeFromItems(2015, 7, 10, 0, 0, 0, 0)
_et := %TimeFromItems(2015, 7, 10, 20, 0, 0, 0) - 1
_params[1]^structVersion := 1
; vypocita funkciu a z jej hodnot spravi priemer
CALL %EDA_StatCalcFunctionRec(_Stat_Avg, 7, _funcBody, _bt, _et, 0, _params, _value, _errorCode)
IF _errorCode != 0 | !_value\VLD | _value != 5.5 THEN
RETURN
ENDIF
END |