find_pdf.m

《Wireless Communications and Networking》（《无线通信和网络》）配套MATLAB源码。该书涵盖了第一、二、和三代蜂窝通信系统从物理层到网络层的关键特性。

function [Qn, A] = find_pdf(Z, NSamples, Action)
switch Action
case 'Amplitude_pdf'
   max = 6;
   min = 0;
   N = 200;
case 'Theta_pdf'
   max = 5;
   min = -5;
   N = 200;
end
delta = (max - min) / N;
for k=1:N
   x1 = min + (k-1) * delta;
   x2 = x1 + delta;
   A(k) = (x1 + x2) / 2;
   Q(k) = 0;
   for j=1:NSamples
      if (Z(j) > x1 & Z(j) <= x2)
         Q(k) = Q(k) + 1;
      end
   end
end
Qn = (Q/NSamples)/delta;
return;