function mat = matquasiper4(n,a,s)

a = 1;
s = (1+sqrt(5))/2;
mat = [];


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

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

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

res = mat;

end
