src/modules/clunits/acost.scm

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;;;                                                                       ;;
   3 ;;;                   Carnegie Mellon University and                      ;;
   4 ;;;                Centre for Speech Technology Research                  ;;
   5 ;;;                     University of Edinburgh, UK                       ;;
   6 ;;;                       Copyright (c) 1998-2001                         ;;
   7 ;;;                        All Rights Reserved.                           ;;
   8 ;;;                                                                       ;;
   9 ;;;  Permission is hereby granted, free of charge, to use and distribute  ;;
  10 ;;;  this software and its documentation without restriction, including   ;;
  11 ;;;  without limitation the rights to use, copy, modify, merge, publish,  ;;
  12 ;;;  distribute, sublicense, and/or sell copies of this work, and to      ;;
  13 ;;;  permit persons to whom this work is furnished to do so, subject to   ;;
  14 ;;;  the following conditions:                                            ;;
  15 ;;;   1. The code must retain the above copyright notice, this list of    ;;
  16 ;;;      conditions and the following disclaimer.                         ;;
  17 ;;;   2. Any modifications must be clearly marked as such.                ;;
  18 ;;;   3. Original authors' names are not deleted.                         ;;
  19 ;;;   4. The authors' names are not used to endorse or promote products   ;;
  20 ;;;      derived from this software without specific prior written        ;;
  21 ;;;      permission.                                                      ;;
  22 ;;;                                                                       ;;
  23 ;;;  THE UNIVERSITY OF EDINBURGH, CARNEGIE MELLON UNIVERSITY AND THE      ;;
  24 ;;;  CONTRIBUTORS TO THIS WORK DISCLAIM ALL WARRANTIES WITH REGARD TO     ;;
  25 ;;;  THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY   ;;
  26 ;;;  AND FITNESS, IN NO EVENT SHALL THE UNIVERSITY OF EDINBURGH, CARNEGIE ;;
  27 ;;;  MELLON UNIVERSITY NOR THE CONTRIBUTORS BE LIABLE FOR ANY SPECIAL,    ;;
  28 ;;;  INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER          ;;
  29 ;;;  RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN  AN ACTION   ;;
  30 ;;;  OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF     ;;
  31 ;;;  OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.       ;;
  32 ;;;                                                                       ;;
  33 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  34 ;;;
  35 ;;;  Finding features and acoustic distance measture for a set of
  36 ;;;  segments in a database of utterances
  37 ;;;
  38 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  39 ;;;
  40 ;;;  This is primarily implement for the cluster unit selection method
  41 ;;;  but may be use in other unit selection schemes.
  42 ;;;
  43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44 ;;;  There are five stages to this
  45 ;;;     Load in all utterances
  46 ;;;     Load in their coefficients
  47 ;;;     Collect together the units of the same type
  48 ;;;     build distance tables from them
  49 ;;;     dump features for them
  50 ;;;
  51
  52 ;; Everything is moved to lib/clunits_build.scm and
  53 ;; lib/clunits.scm
  54
  55 (require_module 'clunits)
  56 (require 'clunits_build)
  57
  58 (provide 'acost)