function rvinfo=simradar(T,W,p,rm)
  
  pr = doppler(8,T,W,p,4*T*W*p,.8,0,0);
  [n,m] = size(rm);
  rvinfo = [];
  for i=1:n,
    rr = rm(i,:);
    a1=1+10*i
    ang = rr(1);
    a1=2+10*i 
    rr = rr(2:m);
    a1=3+10*i 
    loc = pickme(T,W,p,rr);
    a1=4+10*i
    trange = range(T,W,p,loc);
    a1=5+10*i  
    Ntarget = length(trange);
    a1=6 +10*i
    segret = winrr(T,W,p,rr,loc);
    a1=7+10*i
    tvel = [];
    tang = [];
    for k=1:Ntarget,
      tvel = [tvel velcalc(pr,segret(k,:),W,4*T*W*p*8)];
      a1=8+10*k
      tang = [tang ang];
    end
    rvnew = [trange;tvel;tang];
    rvinfo=[rvinfo rvnew];
  end