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:
0 komentárov