I need Matlab code for Kekre transform. the generated Kekre transform should be orthogonal. I have foll code, but it doesnt generate orthogonal kekre transform. Any help plz???

% code to generate kekre transform

n1=64; K=zeros(n1); for i=1:n1 for j=i:n1 K(i,j)=1; end end for i=2:n1 K(i,i-1)=(-n1)+(i-1); end