gusucode.com > 信道仿真的很好程序,可以实现不同参数情况下的信道仿真,比如超宽带系统的室内多径环境信道仿真 > 信道仿真/ricetest.m
function q = ricetest(inph,quad,data,bins) y = sort(data); %data to be tested b = sqrt((std(inph)^2 + std(quad)^2)/2); %Rician parameter a = mean(inph); %Rician parameter inter = max(y) - min(y); %interval for chi-square test intstep = inter/bins; %size of sub-interval intval = [min(y):intstep:max(y)]; %samples at the sub-intervals k = [zeros(1,bins)]; %number of samples in each sub-interval %counting the samples in each sub-interval for i = 1:length(y) for j = 1:bins if y(i) <= intval(j+1) k(j) = k(j) + 1; break; end; end; end; Fy = zeros(1,length(intval)); for i = 1:length(intval) x = 0:intval(i)/(i*400):intval(i); %integration range I = besseli(0,x.*(a/b^2)); %Bessel function of zero order and first kind fy = (x./b^2).*exp(-(a^2+x.^2)./(2*b^2)).*I; %pdf at each sub-interval sample Fy(i) = trapz(x,fy); %cdf at each sub-interval sample end; p = zeros(1,bins); for i = 1:bins p(i) = Fy(i+1) - Fy(i); %probabilities at the sub-interval samples end; np = p.*length(y); q = 0; for i = 1:bins q = q + ((k(i)-np(i))^2)/np(i); %chi-square test end;