plot_16_12.m
上传用户:kendun0711
上传日期:2007-06-03
资源大小:32k
文件大小:1k
源码类别:

技术管理

开发平台:

Matlab

  1. %Contours for BPSK, no noise,  in equializer space 
  2. clear
  3. h0=1;h1=-0.5;h2=0.2;h3=0.3;
  4. H=[h1 h3;h0 h2];
  5. ks=1; sig_s=1; sig_w=0;kw=0;
  6. r=0.04;
  7. %cost function
  8. p=0;q=0;       
  9. for w0=-4:r:4 
  10. p=p+1;
  11. q=0;
  12. for w1= -4:r:4
  13. q=q+1;
  14. w=[w0 w1]';
  15. J(p,q)=0.25*sig_s^4*(ks-3)*norm(H'*w,4)^4+0.75*sig_s^4*norm(H'*w,2)^4+...
  16. 0.25*sig_w^4*(kw-3)*norm(w,4)^4+0.75*sig_w^4*norm(w,2)^4+...
  17. 1.5*sig_s^2*sig_w^2*norm(H'*w,2)^2*norm(w,2)^2-...
  18. 0.5*sig_s^2*ks*(sig_s^2*norm(H'*w,2)^2 +sig_w^2*norm(w,2)^2)+0.25*sig_s^4*ks^2;
  19. if J(p,q)>0.25 & w0^2+w1^2 >1.5
  20. J(p,q)=nan;
  21. elseif J(p,q)>0.19 & w0^2+w1^2 >1
  22. J(p,q)=0.19;
  23. end
  24. end
  25. end
  26. meshc(-4:r:4, -4:r:4, ((J')/max(max(J))))
  27. axis([-3.5 3.5 -4 4 0 1])
  28. xlabel('w_0')
  29. ylabel('w_1')
  30. zlabel('J')
  31. title('figure 16.12')
  32. print -dps 16_12