function  BerSnrTable=Test(maxsnr)
NumLoop = 1000;
NumSubc = 64;
BerSnrTable = zeros(maxsnr+1,3);
for snr=0:19
BerSnrTable(snr+1,1) = snr;
BitsTx = floor(rand(1,NumLoop*NumSubc)*2);
SymQpsk=QpskMapping(BitsTx);
SymQpskd=[];
zsnl=sqrt(1/(10^((snr)/10)));
M=length(SymQpsk);
 for i=1:M
h1=randn+j*randn;
N1=zsnl*(randn+j*randn);
Y=SymQpsk(i)*h1+N1;

dh = [1+j -1+j -1-j 1-j]/sqrt(2);
D1=abs(SS*[1 1 1 1]-dh).^2;
[minScale1 positionmin1]=min(D1);
SymQpskd=[SymQpskd dh(positionmin1)];
 end
BitRx=QpskInverseMapping(SymQpskd);
[Num,Ber]=symerr(BitsTx,BitRx);
BerSnrTable(snr+1,2) = Num ;
BerSnrTable(snr+1,3) = Ber ;
end
figure(1);
semilogy(BerSnrTable(1:3:maxsnr+1,1),BerSnrTable(1:3:maxsnr+1,3),'g*-');