! X-Midas macro to generate statistics file for comparison against NeXtMidas version.
!
! @author  Jason Broussard / J. Czechowski IV
! @version $Id: test_kaiswind.txt,v 1.2 2013/01/09 19:49:43 jxc Exp $
! @since   NeXtMidas 2.1.1
!
startmacro
  res l:kaistap 0

  say "Running Kaiswind primitives..."
  kaiswind/ntaps=32        test_filt1  BANDPASS  3.05e6 1e6   0.01e6    5e6
  kaiswind/ntaps=512       test_filt2  BANDPASS  5.05e6 8.1e6 0.01e6   10e6
  kaiswind/ntaps=512       test_filt3  LOW          2e6 ,,,            10e6
  kaiswind/ntaps=1024      test_filt4  LOW          333 ,,,           2.5e6
  kaiswind/ntaps=4096      test_filt5  HIGH     21.93e6 ,,,          28.8e6
  kaiswind/ntaps=64        test_filt6  HIGH       111e6 ,,,           999e6
  kaiswind/ntaps=512       test_filt7  LOW           83 ,,,             100
  kaiswind/ntaps=512       test_filt8  BANDPASS  3.05e6 2.1e6  1.5e6   10e6
  kaiswind/ntaps=64        test_filt9  HIGH       888e6 ,,     222e6  900e6
  kaiswind/ntaps=64        test_filt10 HIGH       555e6 ,,     333e6  777e6 50
  kaiswind/ntaps=32        test_filt11 LOW           22 ,,,             100 30
  kaiswind/taprslt=kaistap test_filt12 BANDPASS  3.05e6   1e6 0.01e6    5e6
  kaiswind/cmplx           test_filt13 BANDPASS  3.05e6   1e6 0.01e6    5e6

  res kaistap

  res L:count   11
  res A:outfile "kaiswinspecs"

  say "Creating statistics file"
  FCREATE,^{outfile},I*02,count
  headermod ^{outfile} t=3000 f=nh nsr=5 rl=20 sr(1)=(MEAN,SF,0) sr(2)=(STDV,SF,4) sr(3)=(MAXV,SF,8) &
                                               sr(4)=(MINV,SF,12) sr(5)=(ELEM,SF,16)
  headermod ^{outfile} sz=count
  
  loop count cnt
    fstat/quiet test_filt^cnt MEAN=^{outfile}(^cnt;~MEAN) STDV=^{outfile}(^cnt;~STDV) &
                              MAXV=^{outfile}(^cnt;~MAXV) MINV=^{outfile}(^cnt;~MINV) &
                              ELEM=^{outfile}(^cnt;~ELEM)
  endloop

  say "Done"
  status   ^{outfile}
  datalist ^{outfile}
endmacro
