! Tests the XBC version of NEWRATE
!
! author:  J. Czechowski IV
! version: $Id: test_newrate.mm,v 1.2 2006/02/24 23:01:19 jxc Exp $
!
startmacro
  nxm.xbc.host.newrate sinewave ram:outfile 4

  statis ram:outfile table=tbl

  ! The statistics tested match the following run in X-Midas 3.8.3:
  !    X-Midas> newrate sinewave temp 4
  !    X-Midas> statis/dp temp
  !    Number of elements      :                 16276.
  !    Mean value (Re, Im)     : -6.369876370192E-03  1.060336631069E-03
  !    Standard deviation      :  0.998035190339    
  !    Maximum/abscissa/index  :   1.00000137170      528.000000000     2061.
  !    Minimum/abscissa/index  :  0.996764914740      114.500000000      407.

  assert/text="^reg.main.name: ELEM ^tbl.elem eq  16276.0"   tbl.elem eq  16276.0
  assert/text="^reg.main.name: MAX  ^tbl.max  eqt 1.0000013" tbl.max  eqt 1.0000013
  assert/text="^reg.main.name: MIN  ^tbl.min  eqt 0.9967649" tbl.min  eqt 0.9967649
  assert/text="^reg.main.name: SDEV ^tbl.sdev eqt 0.9980351" tbl.sdev eqt 0.9980351
endmacro
