Displaying 1 result from an estimated 1 matches for "pxab".
Did you mean:
phab
2006 Apr 12
0
headerfile translation to Delphi (Pascal) completed
...for i:= 0 to _na^ - 1 do begin
for j := 0 to _nb^ - 1 do begin
_ab[i + j]:= _ab[i + j] + _a[i]*_b[j]
end {for};
end {for};
end {ConvC};
{ ConvCallRInternals }
function ConvCallRInternals( _a, _b: pSExp ): pSExp; cdecl;
var
i, j, na, nb, nab: aRLen;
pxa, pxb, pxab: pDoubleArr;
begin
_a:= riProtect( riCoerceVector( _a, setRealSxp ) );
_b:= riProtect( riCoerceVector( _b, setRealSxp ) );
na:= riLength( _a ); nb:= riLength( _b ); nab:= na + nb - 1;
result:= riProtect( riAllocVector( setRealSxp, nab ) );
pxa:= riReal( _a ); pxb:= riReal( _b...