% This function creates test vectors
% Vel - m/s Range = m
% Rng1<Rng2<Rng3
% Max Range = 750 km
% Max Vel = 600 m/s (matched filter detection max)

function testvec=CTV(Vel1,Rng1,Vel2,Rng2,N)

Wd=(4*pi*40e9*Vel1)/(2*5e5*3e8);
Rngz = round((2*Rng1*16*5e5)/3e8);
z=zeros(1,Rngz);
rb = doppler(8,1.28e-4,5e5,16,4096,0, Wd,0);
testvec = [z rb];

if Rng2 > 0
Wd=(4*pi*40e9*Vel2)/(2*5e5*3e8);
Rngz = round((2*Rng2*16*5e5)/3e8) - length(testvec);
z=zeros(1,Rngz);
rb = doppler(8,1.28e-4,5e5,16,4096,0, Wd,0);
testvec = [testvec z rb];
end 

noise = randn(1,75000);
ez = 75000 - length(testvec);
testvec = [testvec zeros(1,ez)];
testvec = N*noise+testvec;