generator.m

This programme can generate signals of five different radars which contains noise.

%*****************************************
%generator
%*****************************************
function PDW=generator(T,t)
 N=size(T);
 n=N(1,1)/2;
 if T(1,1)<T(2,1)
    R1=radar1(T(1,1),T(2,1));
 else
     R1=[0 0 0 0 0 0];
 end
 if T(1,2)<T(2,2)
    R2=radar2(T(1,2),T(2,2));
 else
     R2=[0 0 0 0 0 0];
 end
if T(1,3)<T(2,3)
    R3=radar3(T(1,3),T(2,3));
else
    R3=[0 0 0 0 0 0];
end
if  T(1,4)<T(2,4)
    R4=radar4(T(1,4),T(2,4));
else
    R4=[0 0 0 0 0 0];
end
if T(1,5)<T(2,5)
    R5=radar5(T(1,5),T(2,5));
else
    R5=[0 0 0 0 0 0];
end
    P=[R1;R2;R3;R4;R5];
for k=2:n
    if T(2*(k-1)+1,1)<T(2*k,1)
    R1=radar1(T(2*(k-1)+1,1),T(2*k,1));
    else
    R1=[0 0 0 0 0 0];
    end
    if T(2*(k-1)+1,2)<T(2*k,2)
    R2=radar2(T(2*(k-1)+1,2),T(2*k,2));
    else
    R2=[0 0 0 0 0 0];
    end
    if T(2*(k-1)+1,3)<T(2*k,3)
    R3=radar3(T(2*(k-1)+1,3),T(2*k,3));
    else
    R3=[0 0 0 0 0 0];
    end
    if T(2*(k-1)+1,4)<T(2*k,4)
    R4=radar4(T(2*(k-1)+1,4),T(2*k,4));
    else
    R4=[0 0 0 0 0 0];
    end
    if T(2*(k-1)+1,5)<T(2*k,5)
    R5=radar5(T(2*(k-1)+1,5),T(2*k,5));
    else
    R5=[0 0 0 0 0 0];
    end
    P=[P;R1;R2;R3;R4;R5];
end
for k=1:size(t)
    NOI=noise(t(k));
    P=[P;NOI];
end
M=size(P);
m=M(1,1);
r=1;
for k=1:m
  %  e=10*rand(1);
    if P(k,1)>0         % e>1 & P(k,1)>0 
       P1(r,:)=P(k,:);
       r=r+1;
    end
end
r=2;
P1=sortrows(P1,5);
S=size(P1);
s=S(1,1);
PDW1(1,:)=P1(1,:);
for k=2:s
     if PDW1((r-1),5)+PDW1((r-1),2)+2<=P1(k,5)
           PDW1(r,:)=P1(k,:);
        r=r+1;
    end
end
S=size(PDW1);
s=S(1,1);
PDW(1,:)=PDW1(1,:);
for i=1:(s-1)
   PDW(i,4)=PDW1(i+1,5)-PDW1(i,5);
   PDW(i+1,1:3)=PDW1(i+1,1:3);
   PDW(i+1,5:6)=PDW1(i+1,5:6);
end