p1=[0.23003,0.14465,0.06858,0.02236,0.00449,0.000745,0.000091,0.00004];
p2=[0.24111,0.154130,0.068910,0.02254,0.0053,0.000875,0.000141,0.00006];
r=[0:6,6.5];
r1=[0:0.1:7];
for i=1:length(r1)
    p3(i)=log_map_bound(2,r1(i));
end
r2=[4:11];
for i=1:length(r2)
    p4(i)=awgn_theo(64,2,r2(i));
end
figure
semilogy(r,p1,'d-');
grid on
hold on
semilogy(r,p2,'s-');
semilogy(r1,p3,'--');
semilogy(r2,p4,'*-');