git.gag.com Git - debian/gnuradio/blob - gr-radar-mono/src/utils/read_avg_sec.m

   1 function avg = read_avg_sec(name, vlen)
   2
   3     f = fopen(name, "rb");
   4     s = zeros(1, vlen);
   5     n = 0;
   6     m = 0;
   7
   8     while (!feof(f))
   9        t = fread(f, [2, vlen], "float");
  10        if (size(t) == [2, vlen])
  11           n = n+1;
  12           c = t(1,:)+t(2,:)*j;
  13           s = s+c;
  14           m = m+1;
  15           if (m == 1000)
  16              avg(n/1000,:) = s/1000;
  17              s = zeros(1, vlen);
  18              m = 0;
  19           endif
  20        endif
  21     endwhile
  22
  23     fclose(f);
  24
  25 endfunction