function res = sompartielle4( l )



    function [vec1] = sompar4( l )
        for n=1:30
        sompar4(n) = coefc(n)*exp(2*pi*n*complex(0,1)*log(l)/log(3))+coefc(-n)*exp(-2*pi*n*complex(0,1)*log(l)/log(3));
        end
 
    vec1 = sompar4;
    end


v = sompar4(l);
d = log(2)/log(3);
s = (l^d)*v;



res = sum(s)+l^d*coefc(0); 


end

