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:

Chybové kódy
EDA konštanty
Tvorba externých funkcií

Napíšte komentár