function mat = matquasiper2(n,l,a,s)

mat = [];

for k = 1:(n-1)
        mat(k+1,k) = -1;
end

for k = 1:(n-1)
        mat(k,k+1) = -1;
end

for  k = 1:n
        mat(k,k) = 2+l*(chi(k,a,s));
end

res = mat;

end