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

传真(Fax)编程

开发平台:

Matlab

  1. function x = single_pulse_ambg (taup)
  2. colormap (gray(1))
  3. eps = 0.000001;
  4. i = 0;
  5. taumax = 1.1 * taup;
  6. taumin = -taumax;
  7. for tau = taumin:.05:taumax
  8.    i = i + 1;
  9.    j = 0;
  10.    for fd = -5/taup:.05:5/taup %-2.5:.05:2.5
  11.       j = j + 1;
  12.       val1 = 1. - abs(tau) / taup;
  13.       val2 = pi * taup * (1.0 - abs(tau) / taup) * fd;
  14.       x(j,i) = abs( val1 * sin(val2+eps)/(val2+eps));
  15.    end
  16. end