CD Ma
CD Ma
t=linspace(0,tb,50);
z=rectpuls(t);
z1=[];
t1=[];
for i=1:length(data4user1)
z1 = [ z1 data4user1(i)*z]; % for line coding
t1=[t1 t+(i-1)*t(end) ];
end
stairs (t1,z1);
ylim([-2 2]);%...................represent data bit
t2=linspace(0,tc,50);
z2=rectpuls(t2);
z3=[];
t3=[];
for i=1:length(spreadsig)
z3 = [z3 spreadsig(i)*z2]; % for line coding
t3= [t3 t2+(i-1)*t2(end)];
end
stairs (t3,z3);
ylim([-2 2]); %..............represent spreaded signal
fc=1/tc;
carrier= cos(2*pi*fc*t3);
plot(t3,carrier);
out1= z3.*carrier; %........... bpsk modulation
plot(t3,out1);
r= awgn(out1,-10);
plot(t3,r);
noise= r-out1;
go=sqrt(.1)*eye(64);
ha=adaptfilt.qrdrls(64,0.99,go);
[d e] =filter(ha,0.01*noise,r);
plot(t3,e);
noise2= e-out1;
[d1 e1]=filter(ha,0.01*noise2,e);
plot(t3,e1);
m=zeros(1,length(e1));
for i=1:3
m=m+[zeros(1,i-1) e(i:length(e))];
end
M=m/3;
plot(t3,M)
r1=M.*carrier;
plot(t3,r1);
y1=[];
for i=1:50:length(r1) %........... sampling for acuiring spreaded bit
sequence
y1 =[ y1 r1(i)];
end
y2=reshape(y1,length(y1)/k,k)';
for i=1:k
y3(i) =sum(y2(i,:).*code4user1)/sf;
end
for i=1:length(y3)
if y3(i)<0
y4(i)=-1;
else y4(i)=1;
end
end
tbit=linspace(0,tb,50);
z=rectpuls(t);
z1=[];
t4=[];
for i=1:length(y4)
z1 = [ z1 y4(i)*z]; % for line coding
t4=[t4 tbit+(i-1)*tbit(end)];
end
stairs(t4,z1);ylim([-2 2]);
data1=(data4user1+1)/2;
output=(y4+1)/2;error=biterr(data1,output);
disp(error);
%
%