function [ vec1 ] = sompar2( l )


d = log(2)/log(3);


for n=1:30
    sompar2(n) = 1/sqrt(d^2+(2*pi*n/log(3))^2)*cos(2*pi*n*log(l)/log(3)-atan(2*pi*n/log(2)))*gam(n)+sin(2*pi*n*log(l)/log(3)-atan(2*pi*n/log(2)))*del(n);
end

vec1 = sompar2

end

