EDA_CalcVectors

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: