www.gusucode.com > 瑞利信道仿真源码程序 > 瑞利信道仿真源码程序/fadingrayleigh/Gen_Channel.m

    function [Ch_Rf_Des,Ch_Rf,Ch_Rf_a]=Gen_Channel(mode,Nbr_usager,Long_Message,Long_Slot,PG,v)

		% Cr閑 le 07/10/2010 par B.Belgacem

%/------------------- D閎ut fonction -----------------------\%


switch mode

    case {1}

         Ch_Rf_Des   = ones(Nbr_usager,Long_Message*PG) ;
 
        Ch_Rf       = ones(Nbr_usager,Long_Message) ;
 
        Ch_Rf_a     = ones(Nbr_usager,Long_Message/Long_Slot );

    case {2}

         Ch_Rf_Des   = zeros(Nbr_usager,Long_Message*PG) ;
 
        Ch_Rf       = zeros(Nbr_usager,Long_Message) ;
 
        Ch_Rf_a     = zeros(Nbr_usager,Long_Message/Long_Slot );

        %--------------------------------
        
for i=1:Nbr_usager       
	Ch_Rf(i,:) = Gen_Rayleigh_Ch(Long_Message,PG,v(i));

end
y=1;
        
for j=1:Long_Message,

            for p=1:PG,
                Ch_Rf_Des(:,y) = Ch_Rf(:,j);

                y=y+1;

            end


end

y=1;
for i=1:Long_Message/Long_Slot

            for j=1:Long_Slot

                Ch_Rf_a(:,i) = Ch_Rf_a(:,i)+Ch_Rf(:,y);

                y=y+1;

            end
        
end

        Ch_Rf_a = 1/Long_Slot*Ch_Rf_a;

end;