var a,b,c: TOpenCLVector; begin CreateIt(a,b,c); try a.CopyFromArray(TSingleArray.Create(1,2,3,4)); // a = [1,2,3, 4] //magnitude b.CopyFromArray(TSingleArray.Create(1,0,1,-1)); // b = [1,0,1,-1] /phase c.PolarToCart(a,b); // result stored in c = projections to Re and Im axis finally FreeIt(a,b,c); end; end;