EDA_CompareVector

Funkcia nahradí hodnoty vektora nulou, ak nevyhovujú podmienke danej operátorom porovnania s konštantou.

Deklarácia

%EDA_CompareVector(
   INT in comparison,
   REC in vector,
   INT in column,
   REAL in number,
   INT out errorCode
    );

Parametre

	Parameter	Dátový typ	Typ	Popis
1	comparison	INT	IN	Typ porovnania.
2	vector	REC	IN	Hodnoty - štruktúra reálnych čísel.
3	column	INT	IN	Poradové číslo stĺpca štruktúry.
4	number	REAL	IN	Konštanta.
5	errorCode	INT	OUT	Chybový (návratový) kód.

Príklad použitia

 INT _CMP_Greater = 0
 INT _CMP_GEqual = 1
 INT _CMP_Less = 2
 INT _CMP_LEqual = 3
 INT  _CMP_Equal = 4
 INT _CMP_NotEqual = 5
 
 BEGIN
  TIME _bt = %TimeFromItems(2015, 1, 1, 0, 0, 0, 0)
  RECORD NOALIAS (SD.EDA_Arr_Obj) _a
  REAL _value
  INT _errorCode, _i
 
  REDIM _a[24]
  FOR _i RANGE _a DO_LOOP
  _a[_i]^val := 1.0 * _i TIME (_bt + 3600 * (_i - 1))
  END_LOOP
 
  ; porovna hodnoty vektora s konstantou a vynuluje tie, ktore nesplnaju podmienku
  _value := 12.0
  CALL %EDA_CompareVector(_CMP_GEqual, _a, 1, _value, _errorCode)
  IF _errorCode != 0 THEN
    RETURN
  ENDIF
 END

Súvisiace stránky: