function psum = partsum_arctg( x, n )
%
%   somma parziale dei primi n termini della serie di arctg(x)
%
%   usa sequence_arctg( x, k)

k = 0:n;

for jj = 1:length(x)

akx(jj,:) = sequence_arctg( x(jj), k );

psum(jj) = sum(akx(jj,:));

end