home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / mathstud / ambg.m < prev    next >
Encoding:
Text File  |  1995-05-19  |  687 b   |  35 lines
  1. % Demonstartion of a linear FM radar ambiguty function
  2. % The variable wave is the analytic linear FM radar signal which
  3. % you can change to get the radar ambiguity of other radar waveforms
  4.  
  5. %       S.Halevy 7/31/92
  6. %       Copyright (c) 1992 by the MathWizards
  7.  
  8. clear
  9. gwsel(0);
  10. n=16
  11. n2=n+n;
  12. t=(0:n-1)/n;
  13. f0=1;
  14. f1=4;
  15. arg=2*pi*f0*t.*(1+0.5*(f1-f0)*t);
  16. wave=sin(arg)+cos(arg)*1J;
  17. wave(n2)=0;
  18. ambg=[]
  19. for k=1:n2
  20.   k
  21.   sig=wave.*conj(wave<>[0 k]);
  22.   siga=abs(fft(sig));
  23.   ambg=[ambg;siga];
  24. end
  25. ambg=ambg<>[n n];
  26. save ambg ambg
  27.  
  28. load ambg
  29. ambg /= max(max(ambg));
  30. top=0.4;
  31. ambg = min(ambg,top);
  32. mesh(ambg)
  33. contour(ambg),grid,xlabel('range'),ylabel('doppler')
  34.  
  35.