mono_pulse.m
上传用户:szahd2008
上传日期:2020-09-25
资源大小:1275k
文件大小:1k
源码类别:

传真(Fax)编程

开发平台:

Matlab

  1. function mono_pulse(phi0)
  2. eps = 0.0000001;
  3. angle = -pi:0.01:pi;
  4. y1 = sinc(angle + phi0);
  5. y2 = sinc((angle - phi0));
  6. ysum = y1 + y2;
  7. ydif = -y1 + y2;
  8. figure(1)
  9. plot(angle,y1,'k',angle,y2,'k');
  10. grid;
  11. xlabel('Angle - radians')
  12. ylabel('Squinted patterns')
  13. figure(2)
  14. plot(angle,ysum,'k');
  15. grid;
  16. xlabel('Angle - radians')
  17. ylabel('Sum pattern')
  18. figure(3)
  19. plot(angle,ydif,'k');
  20. grid;
  21. xlabel('Angle - radians')
  22. ylabel('Difference pattern')
  23. angle = -pi/4:0.01:pi/4;
  24. y1 = sinc(angle + phi0);
  25. y2 = sinc((angle - phi0));
  26. ydif = -y1 + y2;
  27. ysum = y1 + y2;
  28. dovrs = ydif ./ ysum;
  29. figure(4)
  30. plot(angle,dovrs,'k');
  31. grid;
  32. xlabel('Angle - radians')
  33. ylabel('voltage gain')