barkspec.tst

来自「speech signal process tools」· TST 代码 · 共 1,125 行 · 第 1/3 页

    [24]    82   81   79   75   68   63   71   74   75   75   75   74
    [36]    74   73   71   64   68   77   82   84   85   86   85   84
    [48]    83   82   81   80   78   76   73   71   72   72   71   70
    [60]    69   69   69   69   68   68   67   68   70   70   70   69
    [72]    69   69   68   62   62   74   79   82   84   85   86   85
    [84]    85   84   83   82   80   76   69   61   69   71   71   68
    [96]    65   63   63   63   63   64   65   65   64   62   61   60
    [108]    59   59   60   61   62   61   60   58   55   53   48   39
    [120]    51   57   60   61   61   60   57   52   32
aArDvArK

## RUN PROGRAM (1) --- minimal options

echo 'Running command (1):'
echo '    ./barkspec -X tstA.spec out1.spec 2>log1.txt'
./barkspec -X tstA.spec out1.spec 2>log1.txt

## CHECK OUTPUT (1)

## --- STDERR OUTPUT (1)

## --- Make comparison text file (1)

echo '... making comparison file log1.ref'

cat > log1.ref <<aArDvArK
-------------bark_freqs------------  ---------------freqs---------------
  low edge      peak     high edge     low edge      peak     high edge 
      0.000       0.590       1.000          0.0        59.1       100.5
      0.972       1.562       1.972         97.6       157.9       200.7
      1.943       2.533       2.943        197.7       260.9       306.3
      2.915       3.505       3.915        303.1       370.8       419.9
      3.887       4.477       4.887        416.4       490.4       544.5
      4.858       5.448       5.858        540.7       622.9       683.5
      5.830       6.420       6.830        679.2       771.7       840.4
      6.802       7.392       7.802        835.5       940.9      1019.4
      7.773       8.363       8.773       1013.8      1134.7      1225.2
      8.745       9.335       9.745       1218.7      1358.4      1463.1
      9.717      10.307      10.717       1455.7      1617.8      1739.6
     10.688      11.278      11.688       1730.9      1919.7      2061.8
     11.660      12.250      12.660       2051.6      2272.1      2438.1
     12.632      13.222      13.632       2426.3      2684.2      2878.6
     13.603      14.193      14.603       2864.7      3166.9      3394.7
     14.575      15.165      15.575       3378.4      3732.7      4000.0
aArDvArK

## --- Check stderr output (1)

echo '... checking output'

if sed 's/-0/0/g' log1.txt | diff -b log1.ref -
then :
else echo "* * * ERROR: bad frequency table in log1.txt"
fi

## --- FEA_SPEC OUTPUT (1)

## --- Make FEA_SPEC comparison file (1)

echo '... making comparison file ref1.spec'

esig2fea - ref1.spec <<aArDvArK
Esignal
   0.0B
  ASCII
     48
   2421
     -1
Tag: LONG <r>
tot_power: FLOAT <r>
re_spec_val: FLOAT 16 <r>
band_high: DOUBLE 1 <g> [0]        4000.000000000000
nan: LONG 1 <g> [0]            0
bark_high: DOUBLE 1 <g> [0]        15.57507173489807
band_low: DOUBLE 1 <g> [0]        0.000000000000000
src_sf: DOUBLE 1 <g> [0]        8000.000000000000
add_const: DOUBLE 1 <g> [0]        0.000000000000000
frmlen: LONG 1 <g> [0]           64
freqs: FLOAT 16 <g> 
  [0]       59.095127      157.93637      260.92877      370.77933
  [4]       490.37534      622.86011      771.71594      940.85535
  [8]       1134.7238      1358.4169      1617.8140      1919.7334
  [12]       2272.1101      2684.2063      3166.8530      3732.7361
frame_meth: SHORT 1 <g> [0]       1
frame_meth.enumStrings: CHAR 3 9 <g> 
  [0][0]  "NONE\0\0\0\0\0"
  [1][0]  "FIXED\0\0\0\0"
  [2][0]  "VARIABLE\0"
bark_low: DOUBLE 1 <g> [0]        0.000000000000000
contin: SHORT 1 <g> [0]       0
contin.enumStrings: CHAR 2 4 <g> 
  [0][0]  "NO\0\0"
  [1][0]  "YES\0"
bark_freqs: FLOAT 16 <g> 
  [0]      0.58999997      1.5616714      2.5333428      3.5050144
  [4]       4.4766860      5.4483571      6.4200287      7.3917003
  [8]       8.3633718      9.3350430      10.306714      11.278386
  [12]       12.250057      13.221729      14.193400      15.165071
start: LONG 1 <g> [0]            1
record_freq: DOUBLE 1 <g> [0]        500.0000000000000
spec_type: SHORT 1 <g> [0]       2
spec_type.enumStrings: CHAR 5 5 <g> 
  [0][0]  "NONE\0"
  [1][0]  "PWR\0\0"
  [2][0]  "DB\0\0\0"
  [3][0]  "REAL\0"
  [4][0]  "CPLX\0"
freq_format: SHORT 1 <g> [0]       6
freq_format.enumStrings: CHAR 7 10 <g> 
  [0][0]  "NONE\0\0\0\0\0\0"
  [1][0]  "SYM_CTR\0\0\0"
  [2][0]  "SYM_EDGE\0\0"
  [3][0]  "ASYM_CTR\0\0"
  [4][0]  "ASYM_EDGE\0"
  [5][0]  "ARB_VAR\0\0\0"
  [6][0]  "ARB_FIXED\0"
num_freqs: LONG 1 <g> [0]           16
start_time: DOUBLE 1 <g> [0]        1.022000000000000
mult_const: DOUBLE 1 <g> [0]        1.000000000000000
FeaSubtype: SHORT <g>      7
FeaSubtype.enumStrings: CHAR 10 10 <g> 
  [0][0]  "NONE\0\0\0\0\0\0"
  [1][0]  "FEA_VQ\0\0\0\0"
  [2][0]  "FEA_ANA\0\0\0"
  [3][0]  "FEA_STAT\0\0"
  [4][0]  "FEA_QHIST\0"
  [5][0]  "FEA_DST\0\0\0"
  [6][0]  "FEA_2KB\0\0\0"
  [7][0]  "FEA_SPEC\0\0"
  [8][0]  "FEA_SD\0\0\0\0"
  [9][0]  "FEA_FILT\0\0"
recordFreq: DOUBLE <g>       500.0000000000000
startTime: DOUBLE 1 <g> [0]        1.022000000000000
[Record 0]
  [tot_power]       42.399658
  [re_spec_val]
    [0]       3.5103896      8.9551206      9.1528567      6.1995770
    [4]       8.0092156      7.0534674     0.90036376     -3.9100679
    [8]     -0.43934887     -2.6168313     -4.2253807      2.4062002
    [12]       5.5793132      4.8672800      5.2945107      3.1609402
  [Tag]         8145
[Record 1]
  [tot_power]       215.90933
  [re_spec_val]
    [0]     -0.19742317      6.4291090      9.3519240      8.0724287
    [4]       4.8894380      7.6132725      8.4866250      9.8758284
    [8]       10.368521      10.958322      12.178205      12.043165
    [12]       13.833406      18.727071      16.129450      12.736018
  [Tag]         8161
[Record 2]
  [tot_power]       1402.1790
  [re_spec_val]
    [0]       3.0528512      10.328858      12.606077      10.879074
    [4]       11.515579      12.215033      15.170611      17.945575
    [8]       20.449600      23.807027      21.784277      19.948273
    [12]       22.128998      25.884228      23.819357      20.361325
  [Tag]         8177
[Record 3]
  [tot_power]       1747.7202
  [re_spec_val]
    [0]       7.3769630      15.035285      19.659208      21.040455
    [4]       20.177151      16.121975      15.638508      17.942649
    [8]       20.195782      26.406428      22.476255      18.077668
    [12]       21.795112      25.604008      23.053860      19.574099
  [Tag]         8193
[Record 4]
  [tot_power]       942.25507
  [re_spec_val]
    [0]       7.1561550      15.866911      20.460105      20.559318
    [4]       18.563381      15.132984      12.887361      12.681875
    [8]       17.281877      21.587135      18.572040      13.417715
    [12]       17.765526      24.347539      18.299556      14.440763
  [Tag]         8209
[Record 5]
  [tot_power]       315.31058
  [re_spec_val]
    [0]       8.7469584      15.705661      16.517569      12.366046
    [4]       9.8408344      10.524865      7.1421009      8.0940017
    [8]       6.7357185      10.376430      8.5263505      6.5687421
    [12]       13.725818      21.612761      14.849239      9.3949666
  [Tag]         8225
[Record 6]
  [tot_power]       3602.5481
  [re_spec_val]
    [0]       13.028597      20.374237      23.537091      24.401106
    [4]       26.468661      27.438309      26.233884      24.551618
    [8]       25.079388      25.965104      23.534752      19.349798
    [12]       23.211125      27.632472      21.647959      17.415465
  [Tag]         8241
[Record 7]
  [tot_power]       10057.778
  [re_spec_val]
    [0]       15.181086      22.480017      26.925159      29.688561
    [4]       31.406706      31.180413      27.586726      25.263117
    [8]       30.010072      33.195538      28.451735      21.288694
    [12]       27.274023      32.326931      25.523942      22.951821
  [Tag]         8257
[Record 8]
  [tot_power]       5620.1919
  [re_spec_val]
    [0]       15.016516      21.866560      23.335628      22.440321
    [4]       25.931436      26.286725      21.370601      16.491377
    [8]       26.320554      32.213492      26.639319      18.146571
    [12]       26.071596      32.098661      24.746720      22.212130
  [Tag]         8273
[Record 9]
  [tot_power]       3671.2175
  [re_spec_val]
    [0]       16.968750      22.077517      22.723364      20.413547
    [4]       16.552463      19.000582      23.539648      21.638446
    [8]       23.952344      28.701189      22.681718      14.801234
    [12]       24.826339      31.486063      24.740534      21.720849
  [Tag]         8289
[Record 10]
  [tot_power]       45199.863
  [re_spec_val]
    [0]       18.528567      26.967931      31.195838      32.374255
    [4]       34.704573      35.446581      35.539743      36.577876
    [8]       37.747670      40.120947      37.281431      32.483146
    [12]       35.785726      37.501883      33.920892      29.760346
  [Tag]         8305
[Record 11]
  [tot_power]       186006.64
  [re_spec_val]
    [0]       20.169967      28.320176      33.561004      38.036749
    [4]       42.036665      43.243270      40.668066      38.635715
    [8]       42.677709      47.128336      43.340903      36.266693
    [12]       41.154982      45.459673      40.003634      36.834299
  [Tag]         8321
[Record 12]
  [tot_power]       139175.20
  [re_spec_val]
    [0]       19.809521      25.976629      28.116779      31.787438
    [4]       41.084548      42.753046      37.352343      30.084587
    [8]       37.565282      46.364320      42.120159      33.535901
    [12]       39.138023      45.787162      38.787015      35.624014
  [Tag]         8337
[Record 13]
  [tot_power]       67697.734
  [re_spec_val]
    [0]       17.960643      22.700172      22.700388      28.093759
    [4]       38.553510      41.170229      36.707814      30.429001
    [8]       34.274466      42.281407      38.222526      29.605742
    [12]       35.020817      42.618432      35.623702      29.160325
  [Tag]         8353
[Record 14]
  [tot_power]       82619.055
  [re_spec_val]
    [0]       18.847870      27.548280      32.033001      32.859434
    [4]       35.735078      41.561801      38.061727      39.147071
    [8]       39.674382      39.872203      39.695179      35.932341
    [12]       37.956260      41.939042      36.665670      30.030471
  [Tag]         8369
[Record 15]
  [tot_power]       476313.34
  [re_spec_val]
    [0]       20.868224      29.504841      34.833331      38.148520
    [4]       42.850995      46.655637      45.817149      44.170409
    [8]       46.021996      49.588144      48.068435      42.120177
    [12]       46.253214      50.881930      45.232106      39.421472
  [Tag]         8385
[Record 16]
  [tot_power]       474768.25
  [re_spec_val]
    [0]       21.259512      28.409810      31.471663      32.644153
    [4]       42.002035      47.075016      44.912580      39.145808
    [8]       40.906055      50.477543      48.479198      40.483559
    [12]       45.774472      52.217668      45.449234      39.559759
  [Tag]         8401
[Record 17]
  [tot_power]       198083.11
  [re_spec_val]
    [0]       18.648035      23.846822      22.921707      27.457425
    [4]       37.884083      42.331019      40.917916      34.047869
    [8]       34.110705      46.902093      45.177360      36.848591
    [12]       41.247452      48.842519      41.763727      33.627019
  [Tag]         8417
[Record 18]
  [tot_power]       82090.984
  [re_spec_val]
    [0]       18.725599      26.667253      28.338981      26.779033
    [4]       32.499975      33.844179      38.081215      34.413605
    [8]       34.408130      42.892437      41.745036      35.570413
    [12]       37.975532      44.444011      37.863330      29.764970
  [Tag]         8433
aArDvArK

## --- Check FEA_SPEC output (1)

echo '... checking output'

if test `featype out1.spec` = "FEA_SPEC"
then

## --- Header (1)

    # tagged?

    if psps -D out1.spec | grep ' not  *tagged' >/dev/null
    then echo "* * * ERROR: file is not tagged; should be tagged"
    fi

    # generic string values

    gv_contin="NO"
    gv_frame_meth="FIXED"
    gv_freq_format="ARB_FIXED"
    gv_spec_type="DB"

    for i in \
	contin      frame_meth  freq_format spec_type
    do
	x=`hditem -i $i out1.spec`
	eval "pat=\$gv_$i"

	case "$x" in
	"$pat") : ;;
	'') echo "* * * ERROR: header item $i is missing" ;;
	*)  echo "* * * ERROR: header item $i is \"$x\"; should be \"$pat\"" ;;
	esac
    done

    # generic integer values

    gv_start="1"
    gv_nan="0"
    gv_num_freqs="16"
    gv_frmlen="64"
    gv_ndrec="19"

    for i in \
	start       nan         num_freqs   frmlen      ndrec
    do
	x=`hditem -i $i out1.spec`
	eval "pat=\$gv_$i"

	case "$x" in
	'') echo "* * * ERROR: header item $i is missing" ;;
	*)
	    case `echo "if ($x == $pat) \"OK\"" | bc` in
	    OK) : ;;
	    *)  echo "* * * ERROR: header item $i is $x; should be $pat" ;;
	    esac
	;;
	esac
    done

    # generic floating-point values

    gv_add_const="0"
    gv_band_high="4000"
    gv_band_low="0"
    gv_bark_high="15.5751"
    gv_bark_low="0"
    gv_mult_const="1"
    gv_record_freq="500"
    gv_src_sf="8000"
    gv_start_time="1.022"

    for i in \
	add_const   band_high   band_low    bark_high   bark_low \
	mult_const  record_freq src_sf      start_time
    do
	x=`hditem -i $i out1.spec`
	eval "pat=\$gv_$i"

	case "$x" in
	'') echo "* * * ERROR: header item $i is missing" ;;
	*)
	    case `echo	"scale=20;" \
			"if (($pat) >= 0) {" \
			"    if (($x) < 0.9999 * ($pat)) \"NOT\";" \
			"    if (($pat) < 0.9999 * ($x)) \"NOT\"};" \
			"if (($pat) < 0) {" \
			"    if (($x) > 0.9999 * ($pat)) \"NOT\";" \