function [p]=smldPe56(snr_in_dB)% [p]=smldPe56(snr_in_dB)%		SMLDPE56  simulates the probability of error for a given%   		snr_in_dB, signal to noise ratio in dB.E=1;alpha_opt=1/2;SNR=exp(snr_in_dB*log(10)/10);	   	% signal to noise ratiosgma=E/sqrt(2*SNR);		   	% sigma, standard deviation of noiseN=10000;% generation of the binary data source followsfor i=1:N,   temp=rand;   	      		% a uniform random variable over (0,1)   if (temp<0.5),      dsource(i)=0;   	      		% with probability 1/2, source output is 0   else      dsource(i)=1;	      		% with probability 1/2, source output is 1   endend;% detection, and probability of error calculationnumoferr=0;for i=1:N,   % The matched filter outputs   if (dsource(i)==0),      r=gngauss(sgma);       		% if the source output is "0"   else      r=E+gngauss(sgma);     		% if the source output is "1"   end;   % detector follows   if (r<alpha_opt),      decis=0;		      		% decision is "0"    else      decis=1;		      		% decision is "1"    end;   if (decis~=dsource(i)),    		% if it is an error, increase the error counter      numoferr=numoferr+1;   end;end;p=numoferr/N;	  	      		% probability of error estimate