Números randómicos

clear all

clc

%INGRESO DEL NÚMERO DE BITS

l=input('CODIFICACIÓN - Ingrese el número de bits: ')

x=fix(2*rand(1,l))

%%GENERACIÓN DE BITS RANDÓMICOS

for i=1:1:l;

%if x(i)==x(i+1);

t=i-1:0.001:i; %intervalo de tiempo del bit

y=x(i)*(heaviside(t));

subplot(3,1,1) %matriz de gráficos 3x1

plot(t,y,'linewidth',3); %características del gráfico

axis([0 l -1 2]);

title('SEÑAL RANDÓMICA')

hold on

grid on

end

%CÓDIGO RZ UNIPOLAR

for j=1:1:l

if x(j)==1;

t1=j-1:0.001:j-1+0.5; %intervalo de tiempo del bit sobre 2

y1=1*(heaviside(t1)); %señal codificada

subplot(3,1,2) %matriz de gráficos 3x1

plot(t1,y1,'r','linewidth',3); %características del gráfico

axis([0 l -1 2]);

hold on

title('CÓDIGO RZ UNIPOLAR')

t2=j-1+0.5:0.001:j; %intervalo de tiempo del bit sobre 2

y2=0*(heaviside(t2)); %señal codificada

subplot(3,1,2)%matriz de gráficos 3x1

plot(t2,y2,'r','linewidth',3); %características del gráfico

axis([0 l -1 2]);

hold on

grid on

else

t1=j-1:0.001:j;

y=0*(heaviside(t1)); %señal codificada

subplot(3,1,2)%matriz de gráficos 3x1

plot(t1,y,'r','linewidth',3); %características del gráfico

axis([0 l -1 2]);

hold on

end

end

%CÓDIGO POLAR NRZ-L

for k=1:1:l

if x(k)==1;

t2=k-1:0.001:k; %intervalo de tiempo del bit

y2=1*(heaviside(t2)); %señal codificada

subplot(3,1,3)%matriz de gráficos 3x1

plot(t2,y2,'g','linewidth',3); %características del gráfico

axis([0 l -2 2]);

hold on

grid on

title('CÓDIGO POLAR NRZ-L')

else

t1=k-1:0.001:k; %intervalo de tiempo del bit

y=-1*(heaviside(t1)); %señal codificada

subplot(3,1,3)%matriz de gráficos 3x1

plot(t1,y,'g','linewidth',3); %características del gráfico

axis([0 l -2 2]);

hold on

end

end

...