function[n_ber]=sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal)


%TRANSMISOR
n_ldM=n_mod_tipo;
v_bits=randint(n_max_sim*n_ldM,1);
[v_tx, n_ldM]= mapeador(v_bits,n_mod_tipo);
v_tx_secuencia=v_tx(:);


%CANAL
n_sigma_sqr=10^(-n_EbNo_dB/10)/n_ldM;
v_noise=sqrt(n_sigma_sqr/2)*(randn(size(v_tx_secuencia))+j*randn(size(v_tx_secuencia)));
%Aplico el canal 
v_ch=filter(v_canal,1,v_tx_secuencia)+v_noise;

%RECEPTOR
v_rx=v_ch(:);
v_softbits_rx=demapeador(v_rx,n_mod_tipo);
v_bits_rx=v_softbits_rx>0;
%Calculo la ber para esta S/N
n_ber=mean(v_bits_rx(:)~=v_bits(:));


