clc;
clear;
N = 100;
F = dftmtx(N);
F_inv = inv(F);

result = zeros(N);
for i = 1: N
    for j = 1: N
        result(i, j) = F_inv(i,:) * conj(F_inv(j,:))';
    end
end