function sum=sum_many(R)
[r,c]=size(R);
sum= eval_a_term(R(1,1),R(1,2),R(1,3),R(1,4));
for i=2:r
   sum=sum+ eval_a_term(R(i,1),R(i,2),R(i,3),R(i,4));
end