Funkcia určená na vykonanie aritmetickej operácie medzi dvoma vektormi (dvoma stĺpcami reálnych čísel štruktúry). Výsledok vector1 operácia vector2 je uložený do vector1.

Deklarácia

%EDA_CalcVectors(
   INT in operation,
   REC in vector1,
   INT in column1,
   REC in vector2,
   INT in column2,
   INT out errorCode
    );

Parametre

  Parameter Dátový typ Typ Popis
1 operation INT IN Typ aritmetickej operácie.
2 vector1 REC IN Hodnoty - štruktúra reálnych čísel.
3 column1 INT IN Poradové číslo stĺpca prvej štruktúry.
4 vector2 REC IN Hodnoty - štruktúra reálnych čísel.
5 column2 INT IN Poradové číslo stĺpca druhej štruktúry.
6 errorCode INT OUT Chybový (návratový) kód.

Príklad použitia

 INT _Calc_Add = 0
 INT _Calc_Sub = 1
 INT _Calc_Mul = 2
 INT _Calc_Div = 3
 
 BEGIN
  TIME _bt = %TimeFromItems(2015, 1, 1, 0, 0, 0, 0)
  RECORD NOALIAS (SD.EDA_Arr_Obj) _a, _b
  INT _errorCode, _i
 
  REDIM _a[24]
  REDIM _b[24]
  FOR _i RANGE _a DO_LOOP
  _a[_i]^val := 1.0 * _i TIME (_bt + 3600 * (_i - 1))
  _b[_i]^val := 1.0 * _i TIME _a[_i]^val\TIM
  END_LOOP
 
  ; spocita hodnoty vektorov a ulozi ich do vektora _a
  CALL %EDA_CalcVectors(_Calc_Add, _a, 1, _b, 1, _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